OFFSET
1,1
COMMENTS
A084440(a(n))=0.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # for terms <= N
S:= select(isprime, {2, seq(i, i=3..N, 2)}):
for i from 1 do
p:= ithprime(i);
if 2*p+1 > N then break fi;
for k from 1 do
q:= 1+p+p^k;
if q > N then break fi;
S:= S minus {q};
od;
od:
sort(convert(S, list)); # Robert Israel, Dec 13 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 26 2003
STATUS
approved