The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A238579 Home prime sequence (see A037274) starting at 146. 1
 146, 273, 3713, 4779, 333359, 1325643, 3111717139, 29177760383, 69142225413, 3471134339561, 7980350584141, 1324115101168677, 33147123900129853, 1941131324815763997, 37816317113233982621, 291304010934939102849, 333777134924210136703397, 7409854792211363875345439 (list; graph; refs; listen; history; text; internal format)
 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: A135666 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 18 12:13 EDT 2021. Contains 345098 sequences. (Running on oeis4.)