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
Juri-Stepan Gerasimov, Dec 05 2009
EXTENSIONS
Definition and some values corrected - R. J. Mathar, Jun 04 2010
More terms from Harvey P. Dale, Jun 23 2017
STATUS
approved