proposed
approved
proposed
approved
editing
proposed
Cf. A001951.
proposed
editing
editing
proposed
Robert Israel, <a href="/A098858/b098858.txt">Table of n, a(n) for n = 1..10000</a>
filter:= proc(p) isprime(p) and isprime(floor(sqrt(2)*p)) end proc:
select(filter, [2, seq(i, i=3..3000, 2)]); # Robert Israel, Sep 04 2019
approved
editing
_Roger L. Bagula (rlbagulatftn(AT)yahoo.com), _, Oct 11 2004
proposed
approved
Primes p such that floor(sqrt(2)*p) is also a aprimeprime.
approved
proposed
Primes p such that floor(sqrt(2)*p) is also primea aprime.
0,1,1
59 and floor(sqrt(2)*59)=83 are primes.
nonn,new
nonn
(* 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]
nonn,new
nonn