A198175 Primes from merging of 2 successive digits in decimal expansion of Pi.
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
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..2000
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.
Programs
-
Mathematica
With[{len=2},Select[FromDigits/@Partition[RealDigits[Pi,10,1000][[1]], len,1],IntegerLength[#]==len&&PrimeQ[#]&]]
Comments