OFFSET
0,2
FORMULA
MAPLE
A133230 := proc(n) local a016742, i, j, a ; a016742 := 4*n^2 ; a := -1 ; if n =0 then RETURN(-1) ; fi ; for i from 1 to numtheory[pi](a016742-1) do if isprime(a016742-ithprime(i)) then j := numtheory[pi](a016742-ithprime(i)) : a := max(a, i+j) ; fi ; od: RETURN(a) ; end: seq(A133230(n), n=0..80) ; # R. J. Mathar, Apr 22 2008
CROSSREFS
KEYWORD
sign
AUTHOR
Alexander R. Povolotsky, Dec 19 2007
EXTENSIONS
Edited and extended by R. J. Mathar, Apr 22 2008
STATUS
approved