OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..3075
EXAMPLE
11, 13 and 17 are consecutive primes: sqrt(( 11^2 + 13^2 + 17^2)/3) = 13.89244399: floor(13.89244399) = 13, which is prime and appears in the sequence.
17, 19 and 23 are consecutive primes: sqrt(( 17^2 + 19^2 + 23^2)/3) = 19.82422760: floor(19.82422760) = 19, which is prime and appears in the sequence.
41, 43 and 47 are consecutive primes: sqrt(( 41^2 + 43^2 + 47^2)/3) = 43.73785546: floor(43.73785546) = 43, which is prime and appears in the sequence.
MAPLE
a := proc(n) local c, b, d, e; c:=ithprime(n); b:=ithprime(n+1); d:=ithprime(n+2); e:=floor(sqrt((c^2+b^2+d^2)/3)); if isprime(e) then RETURN(e); fi; end: seq(a(n), n=1..500);
MATHEMATICA
Select[Floor[RootMeanSquare[#]]&/@Partition[Prime[Range[200]], 3, 1], PrimeQ] (* Harvey P. Dale, Mar 23 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Apr 03 2014
STATUS
approved