A182390 a(0)=0, a(n) = (a(n-1) * n) XOR n.

0, 1, 0, 3, 8, 45, 264, 1855, 14832, 133497, 1334960, 14684571, 176214856, 2290793125, 32071103752, 481066556279, 7697064900448, 130850103307633, 2355301859537376, 44750735331210163, 895014706624203240, 18795308839108268061, 413496794460381897320

Offset

0,4

Comments

For 0<n<12, a(n)=A000240(n-1).

Links

Harvey P. Dale, Table of n, a(n) for n = 0..450

Formula

a(0)=0, a(n) = (a(n-1) * n) XOR n, where XOR is the bitwise exclusive-OR operator.

Mathematica

nxt[{n_, a_}]:={n+1, BitXor[a(n+1), n+1]}; NestList[nxt, {0, 0}, 30][[;; , 2]] (* Harvey P. Dale, Mar 14 2023 *)

Prog

(Python)
a=0
for i in range(1, 55):
. print a,
. a *= i
. a ^= i

Crossrefs

Cf. A182249, A000240.

Sequence in context: A071533 A361716 A000240 * A132103 A334316 A180508

Adjacent sequences: A182387 A182388 A182389 * A182391 A182392 A182393

Keyword

nonn,base

Author

Alex Ratushnyak, Apr 27 2012

Status

approved