OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
The prime 17 is a term because 17 = 2^3 + 3^2.
MAPLE
N:= 1000:
PP:= {1, seq(seq(x^k, x=2..floor(N^(1/k))), k=2..ilog2(N))}:
A:= select(t -> t<=N and isprime(t), {seq(seq(PP[i]+PP[j], i=1..j), j=1..nops(PP))}):
sort(convert(A, list)); # Robert Israel, Jan 22 2018
MATHEMATICA
lim=450; Select[Union[Total/@Permutations[Flatten[Table[Union[Select[Range[2, lim], ResourceFunction["PerfectPowerQ"][#]&], {1}], 2]], {2}]], PrimeQ[#]&&#<lim&] (* James C. McMahon, Apr 08 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Jul 01 2005
EXTENSIONS
Offset changed to 1 by Robert Israel, Jan 22 2018
STATUS
approved