A171240 a(n) = n^d+d^n where d = A013632(n) is the distance to the next prime.
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
Keywords
Programs
-
Mathematica
dnp[n_]:=Module[{d=NextPrime[n]-n},n^d+d^n]; Array[dnp,20](* Harvey P. Dale, Jun 23 2017 *)
Extensions
Definition and some values corrected - R. J. Mathar, Jun 04 2010
More terms from Harvey P. Dale, Jun 23 2017