OFFSET
0,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
Parthasarathy Madhusudan, Dirk Nowotka, Aayush Rajasekaran and Jeffrey Shallit, Lagrange's Theorem for Binary Squares, in: I. Potapov, P. Spirakis and J. Worrell (eds.), 43rd International Symposium on Mathematical Foundations of Computer Science (MFCS 2018), Schloss Dagstuhl, 2018, pp. 18:1-18:14; arXiv preprint, arXiv:1710.04247 [math.NT], 2017-2018.
EXAMPLE
For n = 24 there are four representations, which are the distinct permutations of [15,3,3,3].
MATHEMATICA
v = Table[k + k * 2^Floor[Log2[k] + 1], {k, 0, 8}]; a[n_] := If[(ip = IntegerPartitions[n, {4}, v]) == {}, 0, Plus @@ Length /@ (Permutations /@ ip)]; Table[a[n], {n, 0, v[[-1]]}] (* Amiram Eldar, Apr 09 2021 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Jeffrey Shallit, Jul 27 2017
STATUS
approved