Paolo Xausa, <a href="/A020506/b020506_1.txt">Table of n, a(n) for n = 0..1000</a>
Paolo Xausa, <a href="/A020506/b020506_1.txt">Table of n, a(n) for n = 0..1000</a>
proposed
approved
editing
proposed
Paolo Xausa, <a href="/A020506/b020506_1.txt">Table of n, a(n) for n = 0..1000</a>
Join[{-7}, Cyclotomic[Range[50], -7]] (* Paolo Xausa, Feb 26 2024 *)
approved
editing
proposed
approved
editing
proposed
Cyclotomic polynomials at x = -7.
proposed
editing
editing
proposed
-7, -8, -6, 43, 50, 2101, 57, 102943, 2402, 117307, 2801, 247165843, 2353, 12111126301, 137257, 6568801, 5764802, 29078814248401, 117993, 1424861898171643, 5649505, 15772610449, 329554457, 3421093417510114543, 5762401, 79787519018560501, 16148168401, 1628413557556843
Sequence has a(0) = x; see comments in A020501.
(PARI) a(n) = if(n==0, -7, polcyclo(n, -7)); \\ Michel Marcus, Dec 17 2017
More terms from Michel Marcus, Dec 17 2017
approved
editing
Simon Plouffe (simon.plouffe(AT)gmail.com)