A198166 Primes from merging of 6 successive digits in decimal expansion of sqrt(2).
135623, 569671, 480731, 850387, 157273, 384623, 585073, 970999, 927557, 275579, 950501, 686201, 450839, 514079, 989687, 872533, 583523, 750287, 759961, 961729, 983557, 752203, 531857, 857011, 570113, 374603, 340849, 868999, 997069, 970699, 900481, 277903
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, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198174, A198175, A104851, A198177.
Programs
-
Mathematica
With[{len=6},Select[FromDigits/@Partition[RealDigits[Sqrt[2],10,1000][[1]], len,1],IntegerLength[#]==len&&PrimeQ[#]&]]
Comments