OFFSET
1,2
MAPLE
select(k -> numtheory:-issqrfree(16*k^4-1), [$1..200]); # Robert Israel, Aug 18 2024
MATHEMATICA
Select[Range[120], SquareFreeQ[16 * #^4 - 1] &] (* Amiram Eldar, Aug 18 2024 *)
PROG
(Magma) [k: k in [1..120] | IsSquarefree(16*k^4-1)];
(PARI) isok(k) = issquarefree(16*k^4 - 1); \\ Michel Marcus, Aug 18 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 18 2024
STATUS
approved