A097499 p^q + q^p for consecutive primes p and q.

17, 368, 94932, 1996813914, 36314872537968, 8660320497414243870, 244552822542936127033092, 257904243416235317958787975746, 3091062959814255272215316579358416079052

Offset

2,1

Comments

The first term is the only prime in the sequence.

Links

Table of n, a(n) for n=2..10.

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

Sequence in context: A365678 A002197 A070148 * A132541 A159244 A318043

Adjacent sequences: A097496 A097497 A097498 * A097500 A097501 A097502

Keyword

nonn

Author

Cino Hilliard, Aug 24 2004

Status

approved