[go: up one dir, main page]

login
Revision History for A100271 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Primes of the form a^4 + b^3 with b>0.
(history; published version)
#8 by Charles R Greathouse IV at Fri Aug 18 11:03:10 EDT 2017
STATUS

editing

approved

#7 by Charles R Greathouse IV at Fri Aug 18 11:03:08 EDT 2017
PROG

(PARI) list(lim)=my(v=List([2]), a4, t); lim\=1; for(a=1, sqrtnint(lim-1, 4), a4=a^4; forstep(b=1+a%2, sqrtnint(lim-a4, 3), 2, if(isprime(t=a4+b^3), listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Aug 18 2017

STATUS

approved

editing

#6 by Joerg Arndt at Wed Jul 18 07:27:49 EDT 2012
STATUS

proposed

approved

#5 by Vincenzo Librandi at Wed Jul 18 07:08:05 EDT 2012
STATUS

editing

proposed

#4 by Vincenzo Librandi at Wed Jul 18 07:07:59 EDT 2012
LINKS

Vincenzo Librandi, <a href="/A100271/b100271.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#3 by Russ Cox at Fri Mar 30 17:22:34 EDT 2012
AUTHOR

_T. D. Noe (noe(AT)sspectra.com), _, Nov 18 2004

Discussion
Fri Mar 30
17:22
OEIS Server: https://oeis.org/edit/global/120
#2 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
MATHEMATICA

lst={}; Do[p=a^4+b^3; If[p<50000&&PrimeQ[p], AppendTo[lst, p]], {a, 64}, {b, 256}]; Union[lst]

KEYWORD

nonn,new

nonn

#1 by N. J. A. Sloane at Sun Feb 20 03:00:00 EST 2005
NAME

Primes of the form a^4 + b^3 with b>0.

DATA

2, 17, 43, 89, 257, 283, 359, 593, 599, 1297, 2213, 2617, 3391, 3631, 4129, 4177, 4721, 6569, 7561, 8081, 8233, 9277, 10343, 10657, 10729, 11273, 12197, 13049, 13463, 14449, 14561, 15641, 15881, 16369, 16921, 17209, 17657, 19699, 22067, 24137

OFFSET

1,1

MATHEMATICA

lst={}; Do[p=a^4+b^3; If[p<50000&&PrimeQ[p], AppendTo[lst, p]], {a, 64}, {b, 256}]; Union[lst]

CROSSREFS

Cf. A002645 (primes of the form a^4 + b^4), A028916 (primes of the form a^4 + b^2), A100291 (numbers of the form a^4 + b^3).

KEYWORD

nonn

AUTHOR

T. D. Noe (noe(AT)sspectra.com), Nov 18 2004

STATUS

approved