rem  > programspd.maths. d(a(k))=k.
least a(k) with d(a(k)) = k.

1 ,  2 , 4 , 6 , 16 , 12 ,
64 , 24 , 36 , 48 , 1024 , 60 , 4096 , 192 , 144 , 120 , 65536 ,
180 , 262144 , 240 , 576 , 3072 , 4194304 , 360 , 1296 , 12288 ,
900 , 960 ,   268435456 , 720 ,   7374182E9 , 840 , 9216 , 196608 ,
5184 , 1260 ,   194767E10 , 786432 , 36864 , 1680 ,   951163E12 ,
2880 ,   804651E12 , 15360 , 3600 , 12582912 ,   687442E13 , 2520 ,
46656 , 6480 , 589824 , 61440 ,   359963E15 , 6300 , 82944 , 6720 ,
2359296 ,   805306368 ,   230376E17 , 5040 ,   529215E18 ,
2122547E9 , 14400 , 7560 , 331776 , 46080 ,   869757E19 , 983040 ,
37748736 , 25920 ,   805916E21 , 10080 ,

don.mcdonald  <dsmcdona@actrix.gen.nz>
07.02.99.
lookup sequences neil j a sloane.