OFFSET
0,1
COMMENTS
Records: 2, 4, 105, 330, 385, 770, 1365, 1995, 3570, 5610, 6279, 14245, 17017, 21385, 22715, 29393, 31395, 38570, 52535, 75361, 84630, 115710, ...
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..72
EXAMPLE
MATHEMATICA
f[n_] := Block[{a = Union[ CoefficientList[ Cyclotomic[n, x], x]]}, a[[-1]] - a[[1]]]; t[_] := 0; k = 1; While[k < 100001, b = f@k; If[t[b] == 0, t[b] = k]; k++]; t@# & /@ Range[0, 115]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Jianing Song and Robert G. Wilson v, Jun 04 2021
STATUS
approved