|
Search: id:A068002
|
|
|
| A068002 |
|
Start with 3, and concatenate ("absorb") the next prime; continually repeat this procedure. |
|
+0
3
|
|
| 3, 35, 3537, 35373539, 3537353935373551, 35373539353735513537353935373569, 3537353935373551353735393537356935373539353735513537353935373613, 35373539353735513537353935373569353735393537355135373539353736133537353935373551353735393537356935373539353735513537353935373753
(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, 3, 7]
|
|
CROSSREFS
|
Cf. A067823, A068003, A068004.
Sequence in context: A093583 A132940 A132941 this_sequence A132557 A069954 A134098
Adjacent sequences: A067999 A068000 A068001 this_sequence A068003 A068004 A068005
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2002
|
|
|
Search completed in 0.002 seconds
|
