login
A171240
a(n) = n^d+d^n where d = A013632(n) is the distance to the next prime.
0
2, 3, 17, 5, 57, 7, 18785, 7073, 593, 11, 2169, 13, 67137425, 4785713, 32993, 17, 131361, 19, 274878037265, 3486792401, 2097593, 23, 789730223201638705, 59604644783353249, 1125899907233249, 2541865845905, 134218457, 29, 536871753, 31
OFFSET
1,1
MATHEMATICA
dnp[n_]:=Module[{d=NextPrime[n]-n}, n^d+d^n]; Array[dnp, 20](* Harvey P. Dale, Jun 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition and some values corrected - R. J. Mathar, Jun 04 2010
More terms from Harvey P. Dale, Jun 23 2017
STATUS
approved