[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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

Showing all changes.
Primes of the form a^a + b^b + c^c + d^d + e^e + f^f.
(history; published version)
#6 by Charles R Greathouse IV at Mon May 13 01:54:09 EDT 2013
LINKS

A136294 _Charles R Greathouse IV_, , <a href="/A136294/b136294.txt">Table of n, a(n) for n = 1..10000</a>

Discussion
Mon May 13
01:54
OEIS Server: https://oeis.org/edit/global/1915
#5 by Charles R Greathouse IV at Mon May 13 01:48:45 EDT 2013
LINKS

A136294 _Charles R Greathouse IV, _, <a href="/A136294/b136294.txt">Table of n, a(n) for n = 1..10000</a>

PROG

(PARI) v=[]; for(a=1, 30, for(b=1, a, for(c=1, b, for(d=1, c, for(e=1, d, for(f=1, e, if(ispseudoprime(t=a^a+b^b+c^c+d^d+e^e+f^f), v=concat(v, t)))))))); #v \\ _Charles R Greathouse IV, _, Feb 15 2011

Discussion
Mon May 13
01:48
OEIS Server: https://oeis.org/edit/global/1914
#4 by Russ Cox at Fri Mar 30 18:40:44 EDT 2012
AUTHOR

_Jonathan Vos Post (jvospost3(AT)gmail.com), _, Apr 11 2008

Discussion
Fri Mar 30
18:40
OEIS Server: https://oeis.org/edit/global/228
#3 by Charles R Greathouse IV at Tue Feb 15 10:17:03 EST 2011
STATUS

proposed

approved

#2 by Charles R Greathouse IV at Tue Feb 15 10:16:47 EST 2011
DATA

41, 47, 61, 67, 113, 139, 293, 313, 571, 797, 823, 1307, 3191, 3391, 3463, 3643, 3947, 4153, 6257, 6263, 6793, 7019, 9433, 12757, 15629, 15881, 46687, 46919, 46997, 47681, 49811, 49843, 50069, 50321, 53419, 56039, 56543, 59183, 93319, 93371

LINKS

A136294 Charles R Greathouse IV, <a href="/A136294/b136294.txt">Table of n, a(n) for n = 1..10000</a>

PROG

(PARI) v=[]; for(a=1, 30, for(b=1, a, for(c=1, b, for(d=1, c, for(e=1, d, for(f=1, e, if(ispseudoprime(t=a^a+b^b+c^c+d^d+e^e+f^f), v=concat(v, t)))))))); #v \\ Charles R Greathouse IV, Feb 15 2011

CROSSREFS

Cf. A000040, A000312, A068145, A133664, the seq submitted a few minutes ago "Primes of the form a^a + b^b + c^c + d^d + e^e".

Cf. A000040, A000312, A068145, A133664, A136292

STATUS

approved

proposed

#1 by N. J. A. Sloane at Sun Jun 29 03:00:00 EDT 2008
NAME

Primes of the form a^a + b^b + c^c + d^d + e^e + f^f.

DATA

41, 47, 61, 67, 113, 139, 293, 313, 571, 797, 823, 1307, 3191, 3391, 3463, 3643, 3947, 4153, 6257, 6263, 6793, 7019, 9433, 12757, 15629, 15881, 46687, 46919, 46997, 47681, 49811, 49843, 50069, 50321, 53419, 56039, 56543, 59183, 93319, 93371

OFFSET

1,1

FORMULA

A000040 INTERSECTION {A000312(a) + A000312(b) + A000312(c) + A000312(d) + A000312(e) + A000312(f)}.

EXAMPLE

a(1) = 41 = 1^1 + 1^1 + 2^2 + 2^2 + 2^2 + 3^3.

a(2) = 47 = 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 3^3.

a(3) = 61 = 1^1 + 1^1 + 1^1 + 2^2 + 3^3 + 3^3.

a(4) = 67 = 1^1 + 2^2 + 2^2 + 2^2 + 3^3 + 3^3.

a(5) = 113 = 1^1 + 2^2 + 3^3 + 3^3 + 3^3 + 3^3.

MATHEMATICA

Select[Union[ Flatten[Table[ a^a + b^b + c^c + d^d + e^e + f^f, {a, 1, 20}, {b, 1, a}, {c, 1, b}, {d, 1, c}, {e, 1, d}, {f, 1, e}]]], PrimeQ]

CROSSREFS

Cf. A000040, A000312, A068145, A133664, the seq submitted a few minutes ago "Primes of the form a^a + b^b + c^c + d^d + e^e".

KEYWORD

easy,nonn

AUTHOR

Jonathan Vos Post (jvospost3(AT)gmail.com), Apr 11 2008

STATUS

approved