OFFSET
1,1
COMMENTS
The first term is the only prime in the sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..75
FORMULA
MATHEMATICA
lst={}; Do[p=Prime[n]; q=Prime[n+1]; a=p^q+q^p; AppendTo[lst, a], {n, 4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 16 2009 *)
First[#]^Last[#]+Last[#]^First[#]&/@Partition[Prime[Range[10]], 2, 1] (* Harvey P. Dale, Sep 20 2011 *)
PROG
(PARI) f(n) = for(x=1, n, p=prime(x); q=prime(x+1); v=p^q+q^p; print1(v", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Aug 24 2004
EXTENSIONS
Offset corrected by Amiram Eldar, Jul 07 2024
STATUS
approved