OFFSET
1,2
COMMENTS
a(12) > 10^25. - Donovan Johnson, Mar 28 2011
MATHEMATICA
f[n_] := Block[{k = 1, p = FromDigits[ Flatten[ IntegerDigits /@ Range[n, 1, -1]]]}, While[k p != FromDigits[ Reverse[ IntegerDigits[k p]]], k++ ]; k p]; Table[ f[n], {n, 11}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jul 18 2005
EXTENSIONS
Edited, corrected and extended (a(3) - a(10)) by Robert G. Wilson v, Jul 21 2005
a(11) from Donovan Johnson, Mar 28 2011
a(12)-a(15) from Giovanni Resta, Sep 23 2019
STATUS
approved