The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A095156 Least k such that 1/k begins with n after deleting the decimal point and the zeros following the decimal point. 3

%I

%S 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 36,35,34,33,32,31,3,29,28,271,27,26,251,25,24,233,23,223,22,213,21,

%U 205,201,2,193,19,186,182,18,176,173,17,167,164,162,16,157,154,152,15,148

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

%H Paul Tek, <a href="/A095156/b095156.txt">Table of n, a(n) for n = 1..10000</a>

%e a(1) = 6 -> 1/6 = 0.{1}666666...

%e a(2) = 4 -> 1/4 = 0.{2}500000...

%e a(3) = 3 -> 1/3 = 0.{3}333333...

%e a(4) = 21 -> 1/4 = 0.0{4}76190...

%e a(5) = 2 -> 1/2 = 0.{5}000000...

%e a(7) = 13 as 1/13 = 0.0767... and on deleting the decimal point one gets 0714... = 714... which begins with 7.

%e a(8) = 12 though 1/125 = 0.8. 1/12 = 0.083...

%t 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 Cf. A034057.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, May 31 2004

%E Corrected and extended by _Ryan Propper_, Aug 10 2005

%E Edited by _N. J. A. Sloane_, May 07 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 16 15:01 EDT 2021. Contains 347472 sequences. (Running on oeis4.)