login
Primes from merging of 7 successive digits in decimal expansion of sqrt(2).
23

%I #16 Dec 14 2014 06:15:32

%S 3562373,5048801,2420969,5038753,7534327,6415727,5073721,2126441,

%T 2644121,9709993,9935831,2226659,9275579,8206057,5714701,7027453,

%U 2851741,8640889,2145083,5835239,3868999,8689997,9970699,9900481,2779031,6311159,6668713,6871301

%N Primes from merging of 7 successive digits in decimal expansion of sqrt(2).

%C Leading zeros are not permitted, so each term is 7 digits in length.

%H Vincenzo Librandi, <a href="/A198167/b198167.txt">Table of n, a(n) for n = 1..1000</a>

%t With[{len=7},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, A198166, A198168, A198169, A198170, A198171, A198172, A198173, A198174, A198175, A104851, A198177.

%K nonn,base

%O 1,1

%A _Harvey P. Dale_, Oct 21 2011