OFFSET
1,2
COMMENTS
Conjecture: every term after a(4) is a multiple of 10. - Harvey P. Dale, May 28 2015
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..150
MATHEMATICA
Reversal = ToExpression @ StringReverse @ ToString[ # ] &; a = Table[0, {70}]; Do[b = Floor[n/Reversal[n]]; If[b < 71 && a[[b]] == 0, a[[b]] = n], {n, 1, 10^6}]; a
lnk[n_]:=Module[{k=1}, While[Floor[k/FromDigits[Reverse[ IntegerDigits[k]]]] !=n, k++]; k]; Array[lnk, 50] (* Harvey P. Dale, May 28 2015 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Mar 02 2002
STATUS
approved