OFFSET
1,1
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory):
q:= n-> (p-> tau(2*p-1)=4 and tau(2*p+1)=4)(ithprime(n)):
select(q, [$1..500])[]; # Alois P. Heinz, Apr 18 2019
PROG
(PARI) isok(k) = my(p=prime(k)); (numdiv(2*p-1) == 4) && (numdiv(2*p+1) == 4); \\ Michel Marcus, Nov 30 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Dolland, Apr 14 2019
STATUS
approved