%I #4 Feb 11 2014 19:05:26
%S 2,23,2329,23292333,2329233323292337,23292333232923372329233323292391,
%T 2329233323292337232923332329239123292333232923372329233323292583
%N Start with 2 and concatenate ("absorb") the next prime; continually repeat this procedure.
%e 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.
%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 2, 7]
%K easy,nonn,base
%O 1,1
%A _Joseph L. Pe_, Feb 07 2002
%E Edited and extended by _Robert G. Wilson v_, Feb 10 2002
|