A058902 Inconsummate numbers in base 6: no number is this multiple of the sum of its digits (in base 6).

27, 33, 64, 82, 97, 100, 103, 104, 107, 118, 122, 124, 125, 128, 134, 135, 152, 159, 162, 177, 190, 193, 195, 198, 205, 208, 212, 214, 232, 233, 250, 277, 280, 298, 334, 343, 345, 349, 352, 358, 362, 363, 364, 370, 380, 382, 384, 403, 427, 442

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..7100

Maple

For Maple code see A058906.

Mathematica

base=6; Do[k=n; While[Apply[Plus, IntegerDigits[k, base]] n!=k&&k<250 n, k+=n]; If[k==250 n, Print[n]], {n, 1, 10^3}] (* Vincenzo Librandi, Jan 30 2017 *)

Prog

(Python)
from itertools import count, islice, combinations_with_replacement
from sympy.ntheory import digits
def A058902_gen(startvalue=1): # generator of terms >= startvalue
    for n in count(max(startvalue, 1)):
        for l in count(1):
            if 5*l*n < 6**(l-1):
                yield n
                break
            for d in combinations_with_replacement(range(6), l):
                if (s:=sum(d)) > 0 and sorted(digits(s*n, 6)[1:]) == list(d):
                    break
            else:
                continue
            break
A058902_list = list(islice(A058902_gen(), 20)) # Chai Wah Wu, May 10 2023

Crossrefs

Cf. A003635, A052491, A058898-A058907.

Sequence in context: A304243 A309063 A088499 * A342844 A141550 A032584

Adjacent sequences: A058899 A058900 A058901 * A058903 A058904 A058905

Keyword

nonn,base

Author

N. J. A. Sloane, Jan 09 2001

Status

approved