A198169 Primes from merging of 9 successive digits in decimal expansion of sqrt(2).
213562373, 488016887, 688724209, 807856967, 718753769, 376948073, 501384623, 470109559, 609552329, 292304843, 260362799, 396546331, 523950547, 877599617, 172983557, 220337531, 570113543, 160386899, 603868999, 782306849, 684929369, 861249497, 124949771
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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, A198170, A198171, A198172, A198173, A198174, A198175, A104851, A198177.
Programs
-
Mathematica
With[{len=9},Select[FromDigits/@Partition[RealDigits[Sqrt[2],10,1000][[1]],len,1],IntegerLength[#]==len&&PrimeQ[#]&]]
Comments