OFFSET
1,1
LINKS
Georg Fischer, Table of n, a(n) for n = 1..1700 (first 357 terms from K. D. Bajpai)
EXAMPLE
13 and 17 are consecutive primes: sqrt((13^3 + 17^3)/2) = 59.62382073: floor(59.62382073)= 59, which is prime and appears in the sequence.
19 and 23 are consecutive primes: sqrt((19^3 + 23^3)/2) = 97.53460923: floor(97.53460923)= 97, which is prime and appears in the sequence.
MAPLE
select(isprime, {seq(floor(sqrt((ithprime(n)^3 + ithprime(n+1)^3)/2)), n=1..1000)}); # corrected by Georg Fischer, Sep 27 2024
MATHEMATICA
Select[Floor[Sqrt[Mean[#]]]&/@(Partition[Prime[Range[600]], 2, 1]^3), PrimeQ] (* Harvey P. Dale, Sep 24 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Apr 04 2014
STATUS
approved