Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,1
Table of n, a(n) for n=1..16.
Do[ If[ ToString[ Factor[ x^n + x^12 + 2, Modulus -> 3] ] == ToString[ x^n + x^12 + 2 ], Print[ n ] ], {n, 0, 760} ]
Cf. A057482.
Sequence in context: A296220 A297835 A298000 * A297998 A037386 A250187
Adjacent sequences: A058213 A058214 A058215 * A058217 A058218 A058219
nonn
Robert G. Wilson v, Nov 30 2000
approved