OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
x^2 == 2 (mod 45) has no solution, so 45 is a term.
MAPLE
filter:= proc(t) (numtheory:-factorset(t) mod 8) intersect {3, 5} <> {} end proc:
select(filter, [seq(i, i=1..1000, 2)]); # Robert Israel, Nov 05 2019
MATHEMATICA
Reap[Do[If[AnyTrue[FactorInteger[k][[All, 1]], MatchQ[Mod[#, 8], 3|5]&], Sow[k]], {k, 1, 999, 2}]][[2, 1]] (* Jean-François Alcover, Aug 22 2020 *)
PROG
(PARI) isA329095(k) = (k%2) && !issquare(Mod(2, k))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jianing Song, Nov 04 2019
STATUS
approved