|
|
A091762
|
|
Last n digits of concatenation of first n primes.
|
|
12
|
|
|
2, 23, 235, 2357, 35711, 571113, 7111317, 11131719, 113171923, 1317192329, 31719232931, 171923293137, 7192329313741, 19232931374143, 923293137414347, 2329313741434753, 32931374143475359, 293137414347535961, 9313741434753596167, 31374143475359616771, 137414347535961677173, 3741434753596167717379
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
The first 5 primes are 2, 3, 5, 7, 11. The last 5 digits concatenated are 35711 so a(5) = 35711. - David A. Corneth, Sep 15 2019
|
|
MATHEMATICA
|
Table[FromDigits[Take[Flatten[IntegerDigits/@Prime[Range[n]]], -n]], {n, 20}] (* Harvey P. Dale, Sep 15 2019 *)
|
|
PROG
|
(PARI) a(n) = {my(p = prime(n), v = digits(p)); while(#v < n, p = precprime(p - 1); v = concat(digits(p), v)); fromdigits(vector(n, i, v[#v - n + i]))} \\ David A. Corneth, Sep 15 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|