|
| |
|
|
A097499
|
|
p^q + q^p for consecutive primes p and q.
|
|
0
| |
|
|
17, 368, 94932, 1996813914, 36314872537968, 8660320497414243870, 244552822542936127033092, 257904243416235317958787975746, 3091062959814255272215316579358416079052
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
COMMENTS
| The first term is the only prime in the sequence.
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; q=Prime[n+1]; a=p^q+q^p; AppendTo[lst, a], {n, 4!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 16 2009]
First[#]^Last[#]+Last[#]^First[#]&/@Partition[Prime[Range[10]], 2, 1] (* From 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: A120287 A002197 A070148 * A132541 A159244 A012639
Adjacent sequences: A097496 A097497 A097498 * A097500 A097501 A097502
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Aug 24 2004
|
| |
|
|
