OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 7 = 2^2 + 1^1 + 1^1 + 1^1 = 4 + 1 + 1 + 1 = 7.
a(2) = 13 = 4 + 4 + 4 + 1.
a(3) = 59 = 27 + 27 + 4 + 1.
a(4) = 311 = 256 + 27 + 27 + 1.
a(5) = 337 = 256 + 27 + 27 + 27.
a(6) = 769 = 256 + 256 + 256 + 1.
MATHEMATICA
Select[Union[ Flatten[Table[ a^a + b^b + c^c + d^d, {a, 1, 20}, {b, 1, a}, {c, 1, b}, {d, 1, c}]]], PrimeQ]
PROG
(PARI) v=[]; for(a=1, 100, for(b=1, a, for(c=1, b, for(d=1, c, if(ispseudoprime(t=a^a+b^b+c^c+d^d), v=concat(v, t)))))); v \\ Charles R Greathouse IV, Feb 15 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Dec 28 2007
STATUS
approved