login
A238579
Home prime sequence (see A037274) starting at 146.
2
146, 273, 3713, 4779, 333359, 1325643, 3111717139, 29177760383, 69142225413, 3471134339561, 7980350584141, 1324115101168677, 33147123900129853, 1941131324815763997, 37816317113233982621, 291304010934939102849, 333777134924210136703397, 7409854792211363875345439
OFFSET
1,1
COMMENTS
Second sequence of this kind with as yet unknown trajectory (see A037274, A056938). - J. Lowell, Apr 27 2017
LINKS
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
Cf. A037274 (home primes), A056938.
Sequence in context: A365202 A119379 A118699 * A238028 A179572 A211838
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