cp's OEIS Frontend

A095156 Least k such that 1/k begins with n after deleting the decimal point and the zeros following the decimal point.

%I A095156 #13 Nov 18 2018 00:04:27
%S A095156 6,4,3,21,2,15,13,12,11,10,9,8,72,7,63,6,56,53,51,5,46,44,42,41,4,38,
%T A095156 36,35,34,33,32,31,3,29,28,271,27,26,251,25,24,233,23,223,22,213,21,
%U A095156 205,201,2,193,19,186,182,18,176,173,17,167,164,162,16,157,154,152,15,148
%N A095156 Least k such that 1/k begins with n after deleting the decimal point and the zeros following the decimal point.
%H A095156 Paul Tek, <a href="/A095156/b095156.txt">Table of n, a(n) for n = 1..10000</a>
%e A095156 a(1) =  6 -> 1/6 = 0.{1}666666...
%e A095156 a(2) =  4 -> 1/4 = 0.{2}500000...
%e A095156 a(3) =  3 -> 1/3 = 0.{3}333333...
%e A095156 a(4) = 21 -> 1/4 = 0.0{4}76190...
%e A095156 a(5) =  2 -> 1/2 = 0.{5}000000...
%e A095156 a(7) = 13 as 1/13 = 0.0767... and on deleting the decimal point one gets 0714... = 714... which begins with 7.
%e A095156 a(8) = 12 though 1/125 = 0.8. 1/12 = 0.083...
%t A095156 Do[k = 1; l = {}; d = IntegerDigits[n]; While[FromDigits[l] != n, k++; f = First[RealDigits[N[1/k, 10]]]; If[Length[f] > Length[d], l = Take[f, Length[d]], l = f]]; Print[k], {n, 1, 100}] (* _Ryan Propper_, Aug 10 2005 *)
%Y A095156 Cf. A034057.
%K A095156 base,nonn
%O A095156 1,1
%A A095156 _Amarnath Murthy_, May 31 2004
%E A095156 Corrected and extended by _Ryan Propper_, Aug 10 2005
%E A095156 Edited by _N. J. A. Sloane_, May 07 2007