cp's OEIS Frontend

A297367 Numerators of fraction whose denominator is defined in A303612.

%I A297367 #42 May 20 2018 16:14:18
%S A297367 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,
%T A297367 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,
%U A297367 7,11,19,2,13,9,7,5,13,8,14,3,13,10,7,11,4
%N A297367 Numerators of fraction whose denominator is defined in A303612.
%p A297367 # The function r is defined in A303612.
%p A297367 a := n -> numer(r(n)): seq(a(n), n=0..99); # _Peter Luschny_, May 19 2018
%t A297367 a = {1};
%t A297367 For[i = 1, i <= 100, i++,
%t A297367 nmax = 10^(Floor[Log[10, i]] + 1);
%t A297367 r = i/nmax;
%t A297367 For[n = 1, n <= nmax, n++,
%t A297367 If[Round[Round[n r]/n, 1/nmax] == r,
%t A297367 a = Flatten[Append[a, Round[n r]]];
%t A297367 Break[];
%t A297367 ]]]
%Y A297367 Cf. A303612.
%K A297367 nonn,base,frac,easy
%O A297367 0,5
%A A297367 _Luca Petrone_, Apr 30 2018