|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
One more term added by J. Lowell, Mar 30 2014
|
|
STATUS
|
approved
|
|
|
|