%I A098858
%S A098858 2,5,29,31,59,73,97,107,127,137,199,239,271,281,311,353,383,479,509,523,
%T A098858 547,557,691,701,769,773,823,967,971,977,997,1049,1069,1103,1117,1151,
%U A098858 1217,1367,1459,1493,1523,1571,1613,1663,1667,1697,1783,1879,1889,2011
%N A098858 Primes p such that floor(sqrt(2)*p) is also a aprime.
%e A098858 59 and floor(sqrt(2)*59)=83 are primes.
%t A098858 (* primes that when multiplied by Sqrt[2] give new primes*) digits=1200 
               a=Delete[Union[Table[If[PrimeQ[Floor[Prime[n]*Sqrt[2]]]==True, Prime[n], 
               0], {n, 1, digits}]], 1]
%Y A098858 Sequence in context: A000472 A049050 A165161 this_sequence A134449 A103579 
               A161500
%Y A098858 Adjacent sequences: A098855 A098856 A098857 this_sequence A098859 A098860 
               A098861
%K A098858 nonn
%O A098858 1,1
%A A098858 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 11 2004