OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
EXAMPLE
a(1) = 2*(1*denominator(((1-1)*(1^2)+2^(1+1)-4)/(2*1))-1)/1+1 = 1.
MATHEMATICA
A244149[n_] := 2*(n*Denominator[((n-1)*n^2 + 2^(n+1) - 4)/(2*n)] - n)/n + 1;
Array[A244149, 100] (* Paolo Xausa, Jan 27 2025 *)
PROG
(Magma) [2*(n*Denominator(((n-1)*(n^2)+2^(n+1)-4)/(2*n))-n)/n+1: n in [1..100]];
(PARI) a(n) = 2*(n*denominator(((n-1)*(n^2)+2^(n+1)-4)/(2*n))-n)/n + 1; \\ Michel Marcus, Sep 03 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 01 2014
STATUS
approved