|
%I #9 Jul 12 2015 12:41:25
%S 3,61,175,571,2414,4142,9011,359772,86249511,535238681,124396878308,
%T 803878693421,6126660122361,13506262793047,74039726260531,
%U 76729882123723031,655537561065645251,882122044899263311
%N Numbers n such that reciprocal of n contains the reverse of n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
%C n for which 10^(2k-1)-n < n*reverse(n) <= 10^(2k-1), where k is the length of n. - _Max Alekseyev_, Apr 11 2005
%e a(3)=175 because 1/175 = 0.005714285...
%t fQ[n_] := Block[{lg = Floor[ Log[10, n] + 1]}, IntegerDigits[n] == Reverse[ Take[ RealDigits[1/n, 10, 24][[1]], lg]]]; lst = {}; Do[ If[ fQ[n], AppendTo[lst, n]], {n, 2, 10^7}]; lst (* _Robert G. Wilson v_, Apr 09 2005 *)
%Y Cf. A074841, A105429.
%K nonn,base
%O 1,1
%A Gil Broussar (kikiriki(AT)mindspring.com), Apr 08 2005
%E More terms from _Max Alekseyev_, Apr 11 2005
%E Further terms from _Max Alekseyev_, Apr 29 2005
|
