A038477 Sums of 5 distinct powers of 5.

781, 3281, 3781, 3881, 3901, 3905, 15781, 16281, 16381, 16401, 16405, 18781, 18881, 18901, 18905, 19381, 19401, 19405, 19501, 19505, 19525, 78281, 78781, 78881, 78901, 78905, 81281, 81381, 81401, 81405, 81881, 81901, 81905, 82001, 82005, 82025, 93781, 93881, 93901

Offset

1,1

Links

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

Mathematica

Union[Total[5^#]&/@Subsets[Range[0, 8], {5}]] (* Harvey P. Dale, Nov 15 2012 *)

Prog

(Python)
from itertools import islice
def A038477_gen(): # generator of terms
    yield int(bin(n:=31)[2:], 5)
    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:], 5)
A038477_list = list(islice(A038477_gen(), 30)) # Chai Wah Wu, Apr 05 2025

Crossrefs

Base 5 interpretation of A038447.

Cf. A000351, A038474, A038475, A038476.

Sequence in context: A375915 A020231 A141390 * A236888 A006113 A212947

Adjacent sequences: A038474 A038475 A038476 * A038478 A038479 A038480

Keyword

nonn,easy

Author

Olivier Gérard

Extensions

Offset corrected by Amiram Eldar, Jul 13 2022

Status

approved