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

Author

Luca Petrone, Apr 30 2018

Keywords

• nonn
• base
• frac
• easy

Crossrefs

Cf. A303612.

Programs

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[];
]]]