|
| |
|
|
A097499
|
|
p^q + q^p for consecutive primes p and q.
|
|
0
|
| |
|
|
|
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: A293691 A002197 A070148 * A132541 A159244 A318043
Adjacent sequences: A097496 A097497 A097498 * A097500 A097501 A097502
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Cino Hilliard, Aug 24 2004
|
|
|
STATUS
|
approved
|
| |
|
|
