A038473 Sums of 5 distinct powers of 4.

341, 1109, 1301, 1349, 1361, 1364, 4181, 4373, 4421, 4433, 4436, 5141, 5189, 5201, 5204, 5381, 5393, 5396, 5441, 5444, 5456, 16469, 16661, 16709, 16721, 16724, 17429, 17477, 17489, 17492, 17669, 17681, 17684, 17729, 17732, 17744, 20501, 20549, 20561, 20564, 20741

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Base 4 interpretation of A038447.

Cf. A000302, A038470, A038471, A038472.

Programs

Mathematica

Take[Total/@Subsets[4^Range[0,10],{5}]//Union,50] (* Harvey P. Dale, Oct 02 2016 *)

Python

from itertools import islice
def A038473_gen(): # generator of terms
    yield int(bin(n:=31)[2:],4)
    while True: yield int(bin((n:=n^((a:=-n&n+1)|(a>>1)) if n&1 else ((n&~(b:=n+(a:=n&-n)))>>a.bit_length())^b))[2:],4)
A038473_list = list(islice(A038473_gen(),30)) # Chai Wah Wu, Apr 04 2025