OFFSET
1,1
COMMENTS
Conjecture: a(n) exists for every n.
LINKS
Robert Israel, Table of n, a(n) for n = 1..262
MAPLE
N:= 100: # for a(1) .. a(N)
p:= 2: m:= 0: b:= 2:V:= Vector(N): count:= 0:
for x from 2 while count < N do
p:= nextprime(p);
if isprime(x) then m:= m+1 fi;
bp:= b; b:= p-m;
v:= b-bp;
if v >= 1 and v <= N and V[v] = 0 then V[v]:= bp; count:= count+1 fi
od:
convert(V, list); # Robert Israel, Mar 16 2025
PROG
(PARI) a(n) = { for(x=1, oo, my(y=prime(x)-primepi(x), z=prime(x+1)-primepi(x+1)); if(z-y == n, return(y)) ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 22 2005
STATUS
approved
