A366417 a(n) = A006571(A005117(n)).

1, -2, -1, 1, 2, -2, -2, 1, 4, 4, -1, -2, 0, 2, -2, -1, -8, 0, 2, 7, -1, 4, -2, 3, 0, -4, -8, -4, -6, 2, 8, 2, -6, 1, 0, 0, 5, 12, -14, 4, 2, -7, 1, 4, -3, 4, -6, -2, 8, -10, 16, -6, -2, 12, 0, 15, -8, -7, -16, 0, -7, 2, -4, -16, 2, 12, 18, 10, -2, -3, 9, 0, -1

Offset

1,2

Links

Table of n, a(n) for n=1..73.

Formula

a(n) = A006571(A005117(n)).

Conjecture: a(n) = A366450(A005117(n)), verified up to n = 98.

Mathematica

nn = 73; squareFree = Select[Range[8*nn], SquareFreeQ]; b[n_] := SeriesCoefficient[q (Product[(1 - q^k), {k, 11, n, 11}] Product[1 - q^k, {k, n}])^2, {q, 0, n}]; Table[b[squareFree[[n]]], {n, 1, nn}]

Crossrefs

Cf. A006571, A366450, A005117, A002070, A023900, A191898, A366362.

Sequence in context: A209032 A183935 A046081 * A190592 A062501 A182599

Adjacent sequences: A366414 A366415 A366416 * A366418 A366419 A366420

Keyword

sign

Author

Mats Granvik, Oct 10 2023

Status

approved