OFFSET
1,1
EXAMPLE
a(1)=1^1+1^1+1=3 a(2)=1^3+3^1+1=5 a(3)=1^5+5^1+1=7 ... a(15)=2^6+6^2+1=101
MATHEMATICA
a[n_] := Block[{}, For[l = {}; i = 1, i < n, i++, For[j = i, j < n, j++, x = i^j + j^i + 1; If[PrimeQ[x], l = Append[l, x]]]]; Print[Sort[Union[l]]]]; a[50]
CROSSREFS
KEYWORD
nonn
AUTHOR
Cheng Zhang (cz1(AT)rice.edu), Jan 26 2010, Mar 03 2010
STATUS
approved