A110405 A110404(k)/k where k is the corresponding number == 1,3,7 or 9 (mod 10).

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.

Links

Table of n, a(n) for n=0..16.

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

Adjacent sequences: A110402 A110403 A110404 * A110406 A110407 A110408

Keyword

base,easy,nonn

Author

Amarnath Murthy, Jul 30 2005

Extensions

More terms from Robert G. Wilson v, Jul 30 2005

Status

approved