OFFSET
1,2
COMMENTS
If n is a term, then so are all divisors of n. - Robert Israel, Dec 08 2022
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local v;
if igcd(n, 6) <> 1 then return false fi;
q:= 3/2 mod n;
traperror(NumberTheory:-ModularLog(-1, q, n)) <> lasterror
end proc:
filter(1):= true:
select(filter, [$1..400]); # Robert Israel, Dec 08 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Aug 11 2021
STATUS
approved