OFFSET
2,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..10000
FORMULA
MAPLE
A076559 := proc(n)
A006530((ithprime(n)+ithprime(n+1))/2) ;
end proc:
seq(A076559(n), n=2..120) ; # R. J. Mathar, May 10 2023
MATHEMATICA
gpf[n_] := FactorInteger[n][[-1, 1]]; p = Select[Range[405], PrimeQ]; gpf /@ ((p[[2 ;; -2]] + p[[3 ;; -1]])/2) (* Amiram Eldar, Aug 29 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 19 2002
STATUS
approved