|
Search: id:A067823
|
|
|
| A067823 |
|
Start with 2 and concatenate ("absorb") the next prime; continually repeat this procedure. |
|
+0
4
|
|
| 2, 23, 2329, 23292333, 2329233323292337, 23292333232923372329233323292391, 2329233323292337232923332329239123292333232923372329233323292583
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
The next prime after 2 is 3, so 23 follows 2 in the sequence. The next prime after 23 is 29, so 2329 comes after 23 in the sequence.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 2, 7]
|
|
CROSSREFS
|
Sequence in context: A079480 A082963 A083759 this_sequence A114794 A090509 A069151
Adjacent sequences: A067820 A067821 A067822 this_sequence A067824 A067825 A067826
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Feb 07 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2002
|
|
|
Search completed in 0.002 seconds
|
