|
|
A198175
|
|
Primes from merging of 2 successive digits in decimal expansion of Pi.
|
|
23
|
|
|
31, 41, 59, 53, 89, 97, 79, 23, 43, 83, 79, 41, 19, 97, 71, 37, 97, 59, 23, 89, 53, 11, 17, 67, 79, 13, 23, 47, 23, 31, 17, 53, 59, 11, 11, 17, 41, 19, 11, 59, 29, 89, 19, 97, 59, 61, 47, 23, 37, 67, 83, 31, 71, 19, 23, 61, 43, 13, 41, 73, 37, 31, 17, 29, 17
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are not permitted, so each term is 2 digits in length.
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{len=2}, Select[FromDigits/@Partition[RealDigits[Pi, 10, 1000][[1]], len, 1], IntegerLength[#]==len&&PrimeQ[#]&]]
|
|
CROSSREFS
|
Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198174, A104851, A198177.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|