OFFSET
0,3
LINKS
Sean A. Irvine, Table of n, a(n) for n = 0..1000
EXAMPLE
a(13) = 65 = 13*5 has decreasing digits.
MATHEMATICA
dtn[ L_ ] := Fold[ 10#1+#2&, 0, L ] a=Map[ dtn, Flatten[ Table[ Table[ Mod[ Range[ i, i-n+1, -1 ], 10 ], {i, 1, 9} ], {n, 1, 300} ], 1 ] ]; f[ n_ ] := Module[ {}, b=Select[ a, IntegerQ[ #/n ]& ]; If[ b=={}, 0, First[ b ] ] ] Table[ f[ n ], {n, 0, 63} ]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 28 2001
EXTENSIONS
More terms from Erich Friedman, Jun 30 2001
STATUS
approved