|
|
A054762
|
|
a(n) is a cube mod a(i) for all i < n.
|
|
2
|
|
|
1, 2, 3, 4, 5, 7, 8, 13, 21, 27, 64, 91, 125, 161, 181, 216, 343, 512, 629, 729, 1000, 1079, 1331, 1728, 2197, 2267, 2744, 3151, 3375, 4096, 4913, 5741, 5832, 6733, 6859, 8000, 9261, 10648, 12167, 13824, 15625, 17576, 18773, 19683, 21952, 23561, 24389, 27000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
q:= proc(n) option remember; {seq(irem(i^3, n), i=1..n)} end:
a:= proc(n) option remember; local k, l; l:= [seq(a(i), i=1..n-1)];
for k from a(n-1)+1 while not andmap(x-> irem(k, x) in q(x), l)
do od: k
end: a(1):=1:
|
|
MATHEMATICA
|
q[n_] := q[n] = Table[Mod[i^3, n], {i, 1, n}] // Union;
a[n_] := a[n] = Module[{k, l}, l = Array[a, n-1];
For[k = a[n-1]+1, !AllTrue[l, MemberQ[q[#], Mod[k, #]]&], k++]; k];
a[1] = 1;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|