|
|
A014874
|
|
Numbers k that divide s(k), where s(1)=1, s(j)=23*s(j-1)+j.
|
|
0
|
|
|
1, 11, 23, 121, 253, 1331, 2783, 10603, 14641, 29647, 30613, 87967, 116633, 161051, 326117, 336743, 967637, 1282963, 1771561, 2023241
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
# To test if n is a member:
f:=proc(n) local s, k;
s:=0;
for k from 1 to n do s:=(23*s+k) mod n; od;
if s=0 then 1 else -1; fi;
end;
# To compute the terms up to 10000:
ans:=[]; for n from 1 to 10000 do if f(n)=1 then ans:=[op(ans), n]; fi; od: ans;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Kok Seng Chua (chuaks(AT)ihpc.nus.edu.sg), Jan 30 2001
|
|
STATUS
|
approved
|
|
|
|