A232089 Table read by rows, which consist of 1 followed by 2^k, 0 <= k < n ; n = 0,1,2,3,...
1, 1, 1, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 4, 8, 1, 1, 2, 4, 8, 16, 1, 1, 2, 4, 8, 16, 32, 1, 1, 2, 4, 8, 16, 32, 64, 1, 1, 2, 4, 8, 16, 32, 64, 128, 1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512
Offset: 0
Examples
The table reads: 1, 1, 1, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 4, 8, 1, 1, 2, 4, 8, 16, 1, 1, 2, 4, 8, 16, 32, 1, 1, 2, 4, 8, 16, 32, 64, etc.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Join[{1},Flatten[Table[Join[{1},2^Range[0,n]],{n,0,10}]]] (* Harvey P. Dale, Nov 28 2024 *)
-
PARI
for(n=0,10,print1("1,");for(k=0,n-1,print1(2^k,",")))
Formula
T(n,k) = max(1,2^(k-1)) = A011782(k); 0 <= k <= n.
Comments