OFFSET
1,1
LINKS
Charlie Neder, Table of n, a(n) for n = 1..99
MAPLE
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
PROG
(PARI) a(n) = {my(s = ""); for (k=1, n, s = concat(s, Str(2*k))); denominator(eval(s)/10^(#s)); } \\ Michel Marcus, Jan 15 2019
(PARI) a(n) = c = concat(vector(n, i, Str(2*i))); denominator(eval(c) / 10^#Str(c)) \\ David A. Corneth, Jan 15 2019
CROSSREFS
KEYWORD
base,frac,nonn,easy
AUTHOR
Amarnath Murthy, Nov 24 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 04 2003
a(5) and a(10) corrected, a(15)-a(17) from Charlie Neder, Jan 14 2019
STATUS
approved
