# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a118363 Showing 1-1 of 1 %I A118363 #36 Oct 08 2024 18:38:43 %S A118363 1,2,4,6,8,9,12,16,18,20,24,26,27,30,35,36,40,48,52,54,56,60,70,72,75, %T A118363 80,90,91,96,105,108,112,117,120,122,123,126,132,135,140,144,148,150, %U A118363 152,156,161,168,175,180,186,192,204,208,210,222,224,240,244,245,246 %N A118363 Factorial base Niven (or Harshad) numbers: numbers that are divisible by the sum of their factorial base digits. %C A118363 Also called "Fiven" numbers [Dahlenberg and Edgar]. - _N. J. A. Sloane_, Jun 25 2018 %H A118363 Antti Karttunen, Table of n, a(n) for n = 1..10000 %H A118363 Paul Dahlenberg and Tom Edgar, Consecutive factorial base Niven numbers, The Fibonacci Quarterly, Vol. 56, No. 2 (2018), pp. 163-166. %H A118363 Index entries for sequences related to factorial base representation. %e A118363 a(8) = 16 because it is written 220 in factorial base and 2 + 2 + 0 = 4, which is a divisor of 16. %e A118363 17 is not on the list because it is written 221 in factorial base and 2 + 2 + 1 = 5, which is not a divisor of 17. %t A118363 (*For the definition of the factorial base version of IntegerDigits, see A007623*) Select[Range[250],IntegerQ[ #/(Plus@@factBaseIntDs[ # ])]&] %o A118363 (Scheme, with Antti Karttunen's IntSeq-library) (define A118363 (ZERO-POS 1 1 A286604)) ;; _Antti Karttunen_, Jun 18 2017 %o A118363 (Python) %o A118363 def a007623(n, p=2): return n if n