This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A279635 #6 Dec 16 2016 11:55:53 %S A279635 1,1,1,8,4,32,32,128,32,512,512,2048,1024,8192,8192,32768,4096,131072, %T A279635 131072,524288,262144,2097152,2097152,8388608,2097152,33554432, %U A279635 33554432,134217728,67108864,536870912,536870912,2147483648,134217728,8589934592,8589934592,34359738368,17179869184,137438953472,137438953472,549755813888,137438953472 %N A279635 Denominator of (0 followed by A005126(n)= 2, 4, 7, ...)/2^n, a sequence corresponding to A271573. %F A279635 a(n) = 2^(n-valuation(2^(n-1)+n,2)), with a(0) = 1. %t A279635 a[0] = 1; a[n_] := Denominator[(2^(n-1)+n)/2^n]; Table[a[n], {n, 0, 40}] %t A279635 (* or *) %t A279635 a[0] = 1; a[n_] := 2^(n-IntegerExponent[2^(n-1)+n, 2]); Table[a[n], {n, 0, 40}] %Y A279635 Cf. A005126, A075101, A271573. %K A279635 nonn,frac %O A279635 0,4 %A A279635 _Jean-François Alcover_ and _Paul Curtz_, Dec 16 2016