A078258
a(n) = numerator(N), where N = 0.123...n (concatenation of 1 to n after decimal point).
Original entry on oeis.org
1, 3, 123, 617, 2469, 1929, 1234567, 6172839, 123456789, 1234567891, 1234567891011, 15432098637639, 12345678910111213, 617283945505560657, 24691357820222426283, 3086419727527803285379, 1234567891011121314151617, 61728394550556065707580859, 12345678910111213141516171819
Offset: 1
a(4) = 617 = smallest integer multiple of 0.1234, 617 = 5000*(0.1234).
-
a(n) = {my(s = ""); for (k=1, n, s = concat(s, Str(k))); numerator(eval(s)/10^(#s));} \\ Michel Marcus, Jan 15 2019
-
from itertools import count, islice
def agen(): # generator of terms
num, den, pow = 0, 1, 0
for n in count(1):
sn = str(n)
num = num*10**len(sn) + n
den *= 10**len(sn)
pow += len(sn)
nr, c2, c5 = num, pow, pow
while nr%2 == 0 and c2 > 0: nr //= 2; c2 -= 1
while nr%5 == 0 and c5 > 0: nr //= 5; c5 -= 1
yield nr
print(list(islice(agen(), 19))) # Michael S. Branicky, Nov 30 2022
A172495
a(n) = numerator of fraction whose decimal representation is (n).(1)(2)(3)...(n-1)(n).
Original entry on oeis.org
11, 53, 3123, 20617, 102469, 95679, 71234567, 406172839, 9123456789, 101234567891, 111234567891011, 1515432098637639, 1312345678910111213, 70617283945505560657, 3024691357820222426283, 403086419727527803285379, 171234567891011121314151617
Offset: 1
a(6) = 95679; 95679/15625 = 6.123456.
-
Numerator[#]GCD[Numerator[#],Denominator[#]]&/@Table[FromDigits[Join[{n},Flatten[ IntegerDigits/@Range[n]]]]/10^n,{n,20}] (* Harvey P. Dale, Dec 16 2019 *)
A078260
a(n) = denominator(N), where N = 0.246...(2n) is the concatenation of the first n even numbers after decimal point.
Original entry on oeis.org
5, 25, 500, 2500, 100000, 25000000, 5000000000, 125000000000, 50000000000000, 500000000000000, 500000000000000000, 6250000000000000000, 5000000000000000000000, 250000000000000000000000, 10000000000000000000000000, 1250000000000000000000000000, 500000000000000000000000000000
Offset: 1
Cf.
A078257 (similar, with concatenation of 1 to n),
A078261 (numerators).
-
a:= n-> (t-> denom(t/10^length(t)))(parse(cat(2*i$i=1..n))):
seq(a(n), n=1..17); # Alois P. Heinz, Jun 25 2025
-
a(n) = {my(s = ""); for (k=1, n, s = concat(s, Str(2*k))); denominator(eval(s)/10^(#s));} \\ Michel Marcus, Jan 15 2019
-
a(n) = c = concat(vector(n, i, Str(2*i))); denominator(eval(c) / 10^#Str(c)) \\ David A. Corneth, Jan 15 2019
a(5) and a(10) corrected, a(15)-a(17) from
Charlie Neder, Jan 14 2019
A172506
a(n) = numerator of fraction a/b, where gcd(a, b) = 1, whose decimal representation has the form (1)(2)(3)...(n-1)(n).(1)(2)(3)...(n-1)(n).
Original entry on oeis.org
11, 303, 123123, 6170617, 246902469, 1929001929, 12345671234567, 617283906172839, 123456789123456789, 123456789101234567891, 12345678910111234567891011, 15432098637639015432098637639, 1234567891011121312345678910111213, 6172839455055606570617283945505560657
Offset: 1
a(6) = 1929001929; 1929001929/15625 = 123456.123456.
-
from itertools import count, islice
def agen(): # generator of terms
k, den, pow = 0, 1, 0
for n in count(1):
sn = str(n)
k = k*10**len(sn) + n
den *= 10**len(sn)
pow += len(sn)
nr, c2, c5 = k*(den+1), pow, pow
while nr%2 == 0 and c2 > 0: nr //= 2; c2 -= 1
while nr%5 == 0 and c5 > 0: nr //= 5; c5 -= 1
yield nr
print(list(islice(agen(), 19))) # Michael S. Branicky, Nov 30 2022
A357915
Concatenation of the decimal digits of {n, 1..n}.
Original entry on oeis.org
11, 212, 3123, 41234, 512345, 6123456, 71234567, 812345678, 9123456789, 1012345678910, 111234567891011, 12123456789101112, 1312345678910111213, 141234567891011121314, 15123456789101112131415, 1612345678910111213141516
Offset: 1
a(2) = 212 since it is the concatenation of the consecutive positive integers <= 2, with 2 prepended.
-
aUpTo[n_] := Table[ FromDigits @ Flatten @ IntegerDigits @ {i, Range @ i}, {i,n}]; aUpTo[999]
-
a(n) = my(s=Str(n)); for(k=1, n, s=Str(s, k)); eval(s); \\ Michel Marcus, Jan 20 2023
-
def a(n): return int(str(n)+"".join(map(str, range(1, n+1))))
print([a(n) for n in range(1, 17)]) # Michael S. Branicky, Jan 20 2023
Showing 1-5 of 5 results.
Comments