OFFSET
1,1
PROG
(PARI){ a(n) = \\ A358399
my( ct = 0 );
for (c1 = -n, n,
for (c2 = -n, n,
for (c3 = -n, n,
for (c4 = -n, n,
if ( ! polisirreducible( Pol([1, c1, c2, c3, c4]) ), ct += 1 );
); ); ); );
return( ct );
}
vector(12, n, a(n) )
\\ Joerg Arndt, Dec 05 2022
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Lorenz H. Menke, Jr., Nov 13 2022
STATUS
approved