

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



