|
|
A173056
|
|
Numbers of the form a^b+b^a, a and b are primes.
|
|
1
|
|
|
8, 17, 54, 57, 177, 368, 2169, 2530, 6250, 8361, 94932, 131361, 178478, 524649, 1596520, 1647086, 8389137, 48989176, 129145076, 536871753, 1162268326, 1221074418, 1996813914, 2147484609, 94143190994, 96951758924, 137438954841
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
2^2+2^2=8, 2^3+3^2=17, 3^3+3^3=54, 2^5+5^2=57, 2^7+7^2=177, 3^5+5^3=368,..
|
|
LINKS
|
|
|
MATHEMATICA
|
nMax=10^12; lim=PrimePi[Log[2, nMax]]; f[a_, b_]:=Prime[a]^Prime[b] + Prime[b]^Prime[a]; Select[Union[Flatten[Table[f[a, b], {a, lim}, {b, lim}]]], #<=nMax&]
nMax=10^12; lim=PrimePi[Log[2, nMax]]; Select[Union[First[#]^Last[#] + Last[#]^First[#]&/@ Tuples[Prime[Range[lim]], {2}]], #<=nMax&] (* Harvey P. Dale, Mar 12 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|