login
A333184
a(n) = n^n - (PrevPrime(n^n) + NextPrime(n^n)) / 2.
5
0, 1, 2, -4, 0, -1, -20, 0, 7, -10, -8, -2, -5, 12, 23, -28, -21, -8, -20, -15, -32, 53, -30, -47, 10, -29, -48, 33, -6, 8, 20, 71, -5, -15, -6, 3, 109, 23, -50, 41, 57, 172, -170, 1, -122, -237, 161, -8, 91, -112, 67, 253, 38, 75, 343, -188, 43, 88, 123, 96
OFFSET
2,3
LINKS
EXAMPLE
n Previous P n^n Next P a(n)
2 3 4 5 0
3 23 27 29 1
4 251 256 257 2
5 3121 3125 3137 -4
6 46649 46656 46663 0
7 823541 823543 823547 -1
8 16777213 16777216 16777259 -20
9 387420479 387420489 387420499 0
10 9999999967 10000000000 10000000019 7
MAPLE
a:= n-> (m-> m-(prevprime(m)+nextprime(m))/2)(n^n):
seq(a(n), n=2..65); # Alois P. Heinz, Mar 10 2020
PROG
(PARI) for(n=2, 61, my(f=n^n); print1(f-(precprime(f)+nextprime(f))/2, ", "))
CROSSREFS
Cf. A333185 (position of terms = 0).
Sequence in context: A363367 A005657 A009332 * A045872 A154463 A011165
KEYWORD
sign
AUTHOR
Hugo Pfoertner, Mar 10 2020
STATUS
approved