A392466 a(1) = 1; for n > 1, a(n) = (n-1)*(n-2)^(A000120(n-1) - 1).

1, 1, 2, 6, 4, 20, 30, 252, 8, 72, 90, 1100, 132, 1872, 2366, 41160, 16, 272, 306, 6156, 380, 8400, 9702, 244904, 552, 14400, 16250, 474552, 20412, 636608, 731670, 25110000, 32, 1056, 1122, 40460, 1260, 47952, 52022, 2140008, 1560, 65600, 70602, 3185784, 81356, 3833280, 4191750

Offset

1,3

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(n) = A255740(n,n).

Mathematica

A392466[n_] := If[n <= 2, 1, (n-1)*(n-2)^(DigitSum[n-1, 2] - 1)];
Array[A392466, 50]

Crossrefs

Cf. A000120.

Main diagonal of A255740.

Sequence in context: A075435 A069875 A202962 * A019088 A096085 A305745

Adjacent sequences: A392463 A392464 A392465 * A392467 A392468 A392469

Keyword

nonn,easy

Author

Paolo Xausa, Feb 19 2026

Status

approved