%I #16 Dec 14 2014 06:15:42
%S 135623,569671,480731,850387,157273,384623,585073,970999,927557,
%T 275579,950501,686201,450839,514079,989687,872533,583523,750287,
%U 759961,961729,983557,752203,531857,857011,570113,374603,340849,868999,997069,970699,900481,277903
%N Primes from merging of 6 successive digits in decimal expansion of sqrt(2).
%C Leading zeros are not permitted, so each term is 6 digits in length.
%H Vincenzo Librandi, <a href="/A198166/b198166.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=6},Select[FromDigits/@Partition[RealDigits[Sqrt[2],10,1000][[1]], len,1],IntegerLength[#]==len&&PrimeQ[#]&]]
%Y 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.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 21 2011
|