OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..3680
EXAMPLE
5735339 is in the sequence because 5735339 = 179^3 = (5735291+5735357+5735369)/3, the arithmetic mean of three consecutive primes.
10503459 is in the sequence because 10503459 = 219^3 = (10503443+10503461+10503473)/3, the arithmetic mean of three consecutive primes.
MAPLE
with(numtheory):KD := proc() local a, b, d, e, f; a:=n^3; b:=prevprime(a); d:=nextprime(a); e:=nextprime(d); f:=(b+d+e)/3; if a=f then RETURN (a); fi; end: seq(KD(), n=2..10000);
PROG
(PARI) list(lim)=my(v=List(), p=2, q=3, t); forprime(r=5, nextprime(nextprime(lim\3+1)+1), t=(p+q+r)/3; if(denominator(t)==1 && ispower(t, 3) && t < q, listput(v, t)); p=q; q=r); Vec(v) \\ Charles R Greathouse IV, Jan 03 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Dec 22 2013
EXTENSIONS
Definition corrected by Michel Marcus and Charles R Greathouse IV, Jan 03 2014
STATUS
approved