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,3

Links

Table of n, a(n) for n=0..17.

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 *)

Crossrefs

Sequence in context: A201732 A374278 A260656 * A351052 A082402 A208055

Adjacent sequences: A141071 A141072 A141073 * A141075 A141076 A141077

Keyword

nonn

Author

Juri-Stepan Gerasimov, Aug 05 2008

Extensions

Corrected by D. S. McNeil, Mar 21 2009

Status

approved