A297367 Numerators of fraction whose denominator is defined in A303612.

0, 1, 1, 1, 2, 1, 3, 2, 3, 6, 1, 1, 1, 2, 1, 2, 3, 1, 2, 3, 1, 3, 2, 3, 4, 1, 5, 3, 5, 2, 3, 4, 6, 1, 10, 6, 4, 7, 3, 7, 2, 7, 5, 3, 4, 5, 6, 7, 10, 17, 1, 18, 11, 8, 7, 6, 5, 4, 7, 10, 3, 11, 5, 12, 7, 11, 19, 2, 13, 9, 7, 5, 13, 8, 14, 3, 13, 10, 7, 11, 4

Offset

0,5

Links

Table of n, a(n) for n=0..80.

Maple

# The function r is defined in A303612.
a := n -> numer(r(n)): seq(a(n), n=0..99); # Peter Luschny, May 19 2018

Mathematica

a = {1};
For[i = 1, i <= 100, i++,
nmax = 10^(Floor[Log[10, i]] + 1);
r = i/nmax;
For[n = 1, n <= nmax, n++,
If[Round[Round[n r]/n, 1/nmax] == r,
a = Flatten[Append[a, Round[n r]]];
Break[];
]]]

Crossrefs

Cf. A303612.

Sequence in context: A122545 A072515 A318747 * A118010 A318730 A259974

Adjacent sequences: A297364 A297365 A297366 * A297368 A297369 A297370

Keyword

nonn,base,frac,easy

Author

Luca Petrone, Apr 30 2018

Status

approved