A286607 Numbers that are not divisible by the sum of their factorial base digits (A034968).

3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 28, 29, 31, 32, 33, 34, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 53, 55, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 94, 95, 97, 98, 99, 100, 101, 102, 103, 104, 106, 107

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Index entries for sequences related to factorial base representation.

Mathematica

q[n_] := Module[{k = n, m = 2, r, s = 0}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, s += r; m++]; !Divisible[n, s]]; Select[Range[120], q] (* Amiram Eldar, Feb 21 2024 *)

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A286607 (NONZERO-POS 1 1 A286604))
(Python)
def a007623(n, p=2): return n if n<p else a007623(n//p, p+1)*10 + n%p
def ok(n):
    x=a007623(n)
    y=sum(int(k) for k in str(x))
    return n%y!=0
print([n for n in range(1, 111) if ok(n)]) # Indranil Ghosh, Jun 21 2017

Crossrefs

Cf. A034968, A118363 (complement), A286604.

Sequence in context: A140607 A352487 A340787 * A204827 A366882 A168252

Adjacent sequences: A286604 A286605 A286606 * A286608 A286609 A286610

Keyword

nonn,base

Author

Antti Karttunen, Jun 18 2017

Status

approved