%I #16 Dec 14 2014 06:20:30
%S 5623,7309,6967,7187,8753,7537,3769,6679,9907,4621,8753,4327,4157,
%T 2309,1229,2297,3583,6659,5927,5927,5011,7027,2851,1741,8609,4079,
%U 7253,7457,7759,3557,2203,5701,5437,4603,8689,6899,8999,7069,4027,7823,9293,3691,6311
%N Primes from merging of 4 successive digits in decimal expansion of sqrt(2).
%C Leading zeros are not permitted, so each term is 4 digits in length.
%H Vincenzo Librandi, <a href="/A198164/b198164.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=4},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, A198165, A198166, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198174, A198175, A104851, A198177.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 21 2011
|