OFFSET
1,1
LINKS
A136294 Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
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]
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
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Apr 11 2008
STATUS
approved