OFFSET
1,1
FORMULA
a(n) =n+A056894(n).
EXAMPLE
a(4)=13 since 13=3^2+4, while 2, 3, 5, 7 and 11 have square excesses of 1, 2, 1, 3 and 3 respectively.
MAPLE
A056893 := proc(n)
local p ;
p :=2 ;
while A053186(p) <> n do
p := nextprime(p) ;
end do:
return p ;
end proc: # R. J. Mathar, Jul 28 2013
PROG
(PARI) A056893(n)={
local(p=2) ;
while( A053186(p)!=n,
p=nextprime(p+1)
) ;
return(p)
} /* R. J. Mathar, Jul 28 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jul 05 2000
STATUS
approved