A073430 Upper triangular region of the table A073346.

1, 1, 0, 0, 2, 0, 1, 0, 4, 0, 0, 2, 4, 8, 0, 0, 2, 8, 16, 16, 0, 0, 0, 12, 40, 48, 32, 0, 1, 0, 12, 80, 144, 128, 64, 0, 0, 2, 12, 136, 384, 448, 320, 128, 0, 0, 2, 12, 224, 912, 1408, 1280, 768, 256, 0, 0, 0, 20, 328, 2048, 4096, 4544, 3456, 1792, 512, 0, 0, 2, 16, 480, 4336

Offset: 0

Author

Antti Karttunen, Jul 31 2002

Keywords

• nonn
• tabl

Programs

Maple

A073430 := n -> A073346bi(A003056(n), A002262(n));
A002262 := n -> n - binomial(floor((1/2)+sqrt(2*(1+n))),2);
A003056 := n -> floor(sqrt(2*(1+n))-(1/2));