|
Search: id:A068003
|
|
|
| A068003 |
|
Start with 5, and concatenate ("absorb") the next prime; continually repeat this procedure. |
|
+0
3
|
|
| 5, 57, 5759, 57595779, 5759577957595817, 57595779575958175759577957595829, 5759577957595817575957795759582957595779575958175759577957595857, 57595779575958175759577957595829575957795759581757595779575958575759577957595817575957795759582957595779575958175759577957595927
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 5, 7]
|
|
CROSSREFS
|
Cf. A067823, A068002, A068004.
Sequence in context: A009480 A009481 A086060 this_sequence A104099 A129897 A097631
Adjacent sequences: A068000 A068001 A068002 this_sequence A068004 A068005 A068006
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2002
|
|
|
Search completed in 0.002 seconds
|
