OFFSET
0,6
COMMENTS
a(A002113(n)) = 1, for n>1.
EXAMPLE
The term corresponding to 13 is 24087 =313131/13.
MATHEMATICA
f[n_] := Block[{k = 1, id = Reverse[ IntegerDigits[n]]}, While[fd = FromDigits[ Flatten[ Table[id, {k}]]]; Mod[fd, n] != 0, k++ ]; fd/n]; lst = Select[ Range[1, 45, 2], Mod[ #, 5] != 0 &]; f /@ lst (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Jul 30 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jul 30 2005
STATUS
approved