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

Author

Antti Karttunen, Jun 18 2017

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to factorial base representation.

Crossrefs

Cf. A034968, A118363 (complement), A286604.

Programs

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 *)

Python

def a007623(n, p=2): return n if n
Indranil Ghosh, Jun 21 2017