A141074 a(n) = n^(n+1)-(n+1)^n+1-(-1)^prime(n+1)-(-1)^(n+1).

0, 0, 2, 18, 402, 7850, 162290, 3667650, 91171010, 2486784402, 74062575402, 2395420006034, 83695120256594, 3143661612445146, 126375169532421602, 5415486851106043650, 246486713303685957378, 11877172892329028459042

Offset: 0

Author

Juri-Stepan Gerasimov, Aug 05 2008

Keywords

• nonn

Programs

Mathematica

a[n_]:=n^(n+1)-(n+1)^n+1-(-1)^Prime[n+1]-(-1)^(n+1);Array[a,18,0] (* James C. McMahon, Jul 16 2025 *)

Extensions

Corrected by D. S. McNeil, Mar 21 2009