A238579 Home prime sequence (see A037274) starting at 146.

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

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

Cf. A037274 (home primes), A056938.

Sequence in context: A365202 A119379 A118699 * A238028 A179572 A211838

Adjacent sequences: A238576 A238577 A238578 * A238580 A238581 A238582

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