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
 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, 36, 35, 34, 33, 32, 31, 3, 29, 28, 271, 27, 26, 251, 25, 24, 233, 23, 223, 22, 213, 21, 205, 201, 2, 193, 19, 186, 182, 18, 176, 173, 17, 167, 164, 162, 16, 157, 154, 152, 15, 148 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Paul Tek, Table of n, a(n) for n = 1..10000 EXAMPLE a(1) =  6 -> 1/6 = 0.{1}666666... a(2) =  4 -> 1/4 = 0.{2}500000... a(3) =  3 -> 1/3 = 0.{3}333333... a(4) = 21 -> 1/4 = 0.0{4}76190... a(5) =  2 -> 1/2 = 0.{5}000000... a(7) = 13 as 1/13 = 0.0767... and on deleting the decimal point one gets 0714... = 714... which begins with 7. a(8) = 12 though 1/125 = 0.8. 1/12 = 0.083... MATHEMATICA 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 *) CROSSREFS Cf. A034057. Sequence in context: A045488 A082530 A099404 * A198550 A029680 A201285 Adjacent sequences:  A095153 A095154 A095155 * A095157 A095158 A095159 KEYWORD base,nonn AUTHOR Amarnath Murthy, May 31 2004 EXTENSIONS Corrected and extended by Ryan Propper, Aug 10 2005 Edited by N. J. A. Sloane, May 07 2007 STATUS approved

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 August 3 21:16 EDT 2021. Contains 346441 sequences. (Running on oeis4.)