|
|
|
|
0, 1, 5, 10, 25, 43, 62, 84, 142, 205, 275, 350, 423, 503, 588, 680, 908, 1145, 1393, 1650, 1925, 2211, 2506, 2812, 3098, 3397, 3711, 4038, 4371, 4719, 5080, 5456, 6360, 7281, 8221, 9178, 10161, 11163, 12182, 13220, 14310, 15421, 16555, 17710
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = floor(A163365(n)/4) (floor probably unnecessary).
|
|
MATHEMATICA
|
nn = 8; s[{n_, k_}, {m_}] := (a[k, n] = m - 1); MapIndexed[s, List @@ HilbertCurve[nn][[1]]]; Floor[1/4*Map[Total, Table[a[n - k, k], {n, 0, nn^2}, {k, n, 0, -1}]]] (* Michael De Vlieger, Nov 01 2022, after Jean-François Alcover at A163357 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|