OFFSET
1,2
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..56 [First 50 terms from Zak Seidov]
EXAMPLE
a(4) = 617 since 1234 = 2*617.
MATHEMATICA
a = {}; b = {}; Do[w = RealDigits[n]; w = First[w]; Do[AppendTo[a, w[[k]]], {k, 1, Length[w]}]; p = FromDigits[a]; AppendTo[b, First[Last[FactorInteger[p]]]], {n, 1, 25}]; b (* Artur Jasinski, Apr 04 2008 *)
Table[FactorInteger[FromDigits[Flatten[IntegerDigits/@Range[n]]]][[-1, 1]], {n, 20}] (* Harvey P. Dale, Aug 31 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 01 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 03 2003
STATUS
approved