%I #16 Dec 14 2014 06:20:17
%S 41,13,23,37,73,67,71,53,37,73,31,17,67,79,97,73,37,79,73,47,53,43,41,
%T 73,13,23,29,97,83,73,37,41,97,83,31,41,13,59,59,79,11,71,47,59,97,71,
%U 59,97,53,59,47,17,41,89,19,23,29,23,43,71,43,83,97,79,79
%N Primes from merging of 2 successive digits in decimal expansion of sqrt(2).
%C Leading zeros are not permitted, so each term is 2 digits in length.
%H Vincenzo Librandi, <a href="/A198162/b198162.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=2},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, A198163, A198164, 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
|