|
|
A134723
|
|
Concatenation of next n odd primes.
|
|
1
|
|
|
3, 57, 111317, 19232931, 3741434753, 596167717379, 838997101103107109, 113127131137139149151157, 163167173179181191193197199, 211223227229233239241251257263, 269271277281283293307311313317331
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Module[{nterms=12, max}, max=(nterms(nterms+1))/2+1; FromDigits[ Flatten[ IntegerDigits/@#]]&/@ With[ {pr=Prime[Range[2, max]]}, Table[Take[pr, {(n(n-1))/2+1, (n(n+1))/2}], {n, nterms}]]] (* Harvey P. Dale, Nov 25 2012 *)
Module[{nn=20}, FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[Prime[ Range[ 2, (nn(nn+1))/2+1]], Range[nn]]] (* Harvey P. Dale, Mar 27 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|