OFFSET
1,1
COMMENTS
Subsequence of A320774.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
EXAMPLE
241 is a term since it is prime and (4*241+1)/5 = 193, prime.
MAPLE
for n from 4 to 1000 do
Y := ithprime(n);
Z := 4*Y+1;
K := (1/5)*Z;
if mod(Z, 5) = 0 and isprime(K) then print(Y);
end if:
end do:
MATHEMATICA
Select[Prime[Range[1000]], PrimeQ[(4 # + 1)/5] &] (* Amiram Eldar, Nov 13 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Nov 13 2018
EXTENSIONS
More terms from Seiichi Manyama, Dec 24 2018
STATUS
approved