OFFSET
1,1
COMMENTS
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..100
Wikipedia, Home prime
EXAMPLE
146 = 2*73 so next term is 273; 273 = 3*7*13 so next term is 3713.
MATHEMATICA
NestList[FromDigits@ Flatten@ Map[IntegerDigits, FactorInteger[#] /. {p_, e_} /; p >= 1 :> If[p == 1, 1, ConstantArray[p, e]]] &, 146, 17] (* Michael De Vlieger, Apr 27 2017 *)
PROG
(PARI) lista(nn) = {n = 146; for (i=1 , nn, print1(n, ", "); f = factor(n); s = ""; for (j=1, #f~, for (k=1, f[j, 2], s = concat(s, Str(f[j, 1])); ); ); n = eval(s); ); } \\ Michel Marcus, Mar 31 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. Lowell, Mar 30 2014
EXTENSIONS
One more term added by J. Lowell, Mar 30 2014
More terms from Jon E. Schoenfield, Mar 30 2014
One further term from N. J. A. Sloane, Mar 31 2014
STATUS
approved