|
Search: id:A161503
|
|
|
| A161503 |
|
NextPrime(n^n)-PrevPrime(n^n). |
|
+0
1
|
|
| 2, 6, 6, 16, 14, 6, 46, 20, 52, 104, 54, 28, 44, 80, 72, 92, 172, 20, 142, 34, 110, 134, 130, 98, 106, 78, 174, 306, 26, 132, 54, 258, 116, 78, 50, 90, 448, 66, 214, 302, 140, 352, 466, 246, 670, 594, 396, 20, 244, 228, 640, 546, 462, 354, 1040, 408, 176, 564, 760
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
FORMULA
|
a(n) = A074966(n)+A074967(n) = A013633(A000312(n)). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 12 2009
|
|
EXAMPLE
|
3 <- 2^2 -> 5; 5- 3=2, 23 <- 3^3 -> 29; 29-23=6,..
|
|
MAPLE
|
for n from 2 to 100 do nn := n^n ; printf("%d, ", nextprime(nn)-prevprime(nn) ) ; od: # R. J. Mathar, Jun 12 2009
|
|
MATHEMATICA
|
PrimeNext[n_]:=Module[{k}, k=n+1; While[ !PrimeQ[k], k++ ]; k]; PrimePrev[n_]:=Module[{k}, k=n-1; While[ !PrimeQ[k], k-- ]; k]; DeltaY[n_]:=PrimeNext[n]-PrimePrev[n]; lst={}; Do[AppendTo[lst, DeltaY[n^n]], {n, 2, 5!}]; lst
|
|
CROSSREFS
|
Cf. A074966, A074967
Sequence in context: A073131 A056136 A098571 this_sequence A019076 A111410 A083774
Adjacent sequences: A161500 A161501 A161502 this_sequence A161504 A161505 A161506
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 11 2009
|
|
EXTENSIONS
|
Offset changed by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 12 2009
|
|
|
Search completed in 0.002 seconds
|
