login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A056893 Smallest prime with square excess of n. 5
2, 3, 7, 13, 41, 31, 23, 89, 73, 59, 47, 61, 113, 239, 79, 97, 593, 139, 163, 461, 277, 191, 167, 193, 281, 251, 223, 317, 353, 991, 431, 761, 433, 563, 359, 397, 521, 479, 439, 569, 617, 571, 619, 773, 829, 887, 947, 673, 1493, 1571, 727, 1013, 953, 1279 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..54.

FORMULA

a(n) =n+A056894(n).

a(n) = min{p in A000040: A053186(p) = n}. - R. J. Mathar, Jul 28 2013

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

Cf. A053186, A000196, A002496, A048760, A056892-A056898.

Sequence in context: A013917 A293994 A196419 * A051130 A078749 A046062

Adjacent sequences: A056890 A056891 A056892 * A056894 A056895 A056896

KEYWORD

nonn

AUTHOR

Henry Bottomley, Jul 05 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 5 03:48 EST 2023. Contains 360082 sequences. (Running on oeis4.)