login
A110405
A110404(k)/k where k is the corresponding number == 1,3,7 or 9 (mod 10).
1
1, 1, 1, 1, 1, 24087, 421865715983363, 48378522062732589, 5772, 140535792709705753184, 26936, 320445837687216997561825148, 4235907461713913326816552623, 1, 19929, 24087, 34491254
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
Cf. A110404.
Sequence in context: A084691 A084692 A249843 * A234112 A234165 A321063
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Jul 30 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jul 30 2005
STATUS
approved