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

Author

J. Lowell, Mar 30 2014

Keywords

• nonn
• base

Comments

Second sequence of this kind with as yet unknown trajectory (see A037274, A056938). - J. Lowell, Apr 27 2017

Examples

			146 = 2*73 so next term is 273; 273 = 3*7*13 so next term is 3713.
		

Links

• Sean A. Irvine, Table of n, a(n) for n = 1..100
• Wikipedia, Home prime

Crossrefs

Cf. A037274 (home primes), A056938.

Programs

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 *)

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

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