OFFSET
1,1
MAPLE
a[1] := 2:for n from 2 to 50 do i := 2:iss := false:while(iss=false) do iss := true: if isprime(sum(a[j], j=1..n-1)+i^n)=false then iss := false:fi:i := i+1:od:i := i-1: a[n] := i^n:od:seq(a[l], l=1..50);
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 19 2002
EXTENSIONS
More terms from Vladeta Jovovic and Sascha Kurz, Aug 19 2002
STATUS
approved