|
%I #5 Dec 05 2013 19:57:02
%S 1,1,1,1,1,24087,421865715983363,48378522062732589,5772,
%T 140535792709705753184,26936,320445837687216997561825148,
%U 4235907461713913326816552623,1,19929,24087,34491254
%N A110404(k)/k where k is the corresponding number == 1,3,7 or 9 (mod 10).
%C a(A002113(n)) = 1, for n>1.
%e The term corresponding to 13 is 24087 =313131/13.
%t 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_ *)
%Y Cf. A110404.
%K base,easy,nonn
%O 0,6
%A _Amarnath Murthy_, Jul 30 2005
%E More terms from _Robert G. Wilson v_, Jul 30 2005
|
