OFFSET
1,1
COMMENTS
If x and y are members, then so is LCM(x,y). - Robert Israel, Mar 08 2021
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local x, k, R;
x:= 0; R[0]:= 0;
for k from 1 do
x:= x^2+1 mod n;
if assigned(R[x]) then return evalb(k-R[x] = 8)
else R[x]:= k fi
od;
end proc:
select(filter, [$1..5000]); # Robert Israel, Mar 08 2021
MATHEMATICA
filter[n_] := Module[{x, k, R}, x = 0; R[0] = 0; For[k = 1, True, k++, x = Mod[x^2+1, n]; If[IntegerQ[R[x]], Return[k - R[x] == 8], R[x] = k]]];
Select[Range[4000], filter] (* Jean-François Alcover, May 15 2023, after Robert Israel *)
PROG
(PARI) for(i=1, 3000, A248218(i)==8&&print1(i", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 25 2015
STATUS
approved