OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = (A076306(n))^3. - R. J. Mathar, Sep 02 2013
EXAMPLE
a(2) = 103823 because prime(3696) + prime(3697) + prime(3698) = 34603 + 34607 + 34613 = 103823 = 47^3.
MATHEMATICA
Select[Total[#]&/@Partition[Prime[Range[132*10^5]], 3, 1], IntegerQ[ Surd[ #, 3]]&] (* Harvey P. Dale, May 08 2018 *)
PROG
(PARI) n=0; forstep(j=3, 86231, 2, c=j^3; c3=c/3; f=0; if(denominator(c3)==1, if(isprime(c3), if(precprime(c3-1)+c3+nextprime(c3+1)==c, f=1))); p2=precprime(c3); p1=precprime(p2-1); p3=nextprime(c3); p4=nextprime(p3+1); if(p1+p2+p3==c, f=1); if(p2+p3+p4==c, f=1); if(f==1, n++; write("b227475.txt", n " " c))) /* Donovan Johnson, Sep 02 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Sep 02 2013
STATUS
approved