|
|
|
|
2, 7, 12, 17, 20, 22, 27, 32, 37, 42, 47, 52, 57, 62, 67, 70, 72, 77, 82, 87, 92, 97, 102, 107, 112, 117, 120, 122, 127, 132, 137, 142, 147, 152, 157, 162, 167, 170, 172, 177, 182, 187, 192, 197, 200, 202, 207, 212, 217, 220, 222, 227, 232, 237, 242, 247
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|