login
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
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[#]&]]
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 21 2011
STATUS
approved