This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A328273 #9 Oct 12 2019 03:37:35 %S A328273 1,2,3,4,5,6,7,8,9,10,12,20,24,30,36,40,48,50,60,70,80,90,100,102,110, %T A328273 120,140,150,200,204,210,220,240,280,300,306,330,360,400,408,420,440, %U A328273 480,500,510,540,550,600,630,660,700,770,800,840,880,900,990,1000 %N A328273 Super Niven numbers: numbers divisible by the sums of all the nonempty subsets of their nonzero digits. %C A328273 This sequence is infinite since if m is in the sequence then 10*m is also in the sequence. %C A328273 Saadatmanesh et al. proved that: %C A328273 1) The only odd terms are 1, 3, 5, 7, and 9. %C A328273 2) If m is a super Niven number with k nonzero digits, then m is divisible by all the numbers 1 <= j <= k. %C A328273 3) The only terms without the digit zero are 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 24, 36, and 48. %D A328273 Majid Saadatmanesh, Super Niven numbers, MS thesis, Central Missouri State University, 1991. %H A328273 Giovanni Resta, <a href="/A328273/b328273.txt">Table of n, a(n) for n = 1..10000</a> %H A328273 Majid Saadatmanesh, Robert E. Kennedy, and Curtis Cooper, <a href="http://cs.ucmo.edu/~cnc8851/articles/super.pdf">Super Niven numbers</a>, Mathematics in College (1992), pp. 21-30. %H A328273 Amin Witno and Khaled Hyasat, <a href="http://www.ripublication.com/Volume/gjpamv6n3.htm">Solutions to two open questions on super Niven numbers</a>, Global Journal of Pure and Applied Mathematics, Vol. 6, No. 3 (2010), pp. 227-231, <a href="https://www.thefreelibrary.com/Solutions+to+two+open+questions+on+super+Niven+numbers.-a0323038713">alternative link</a>. %e A328273 12 is in the sequence since the nonempty subsets of its nonzero digits are {1}, {2}, {1, 2}, whose sums, 1, 2, 3, are all divisors of 12. %t A328273 superNivenQ[n_] := AllTrue[Union[Total /@ Rest @ Subsets[Select[IntegerDigits[n], # > 0 &]]], Divisible[n, #] &]; Select[Range[1000], superNivenQ] %Y A328273 Subsequence of A005349. %K A328273 nonn,base %O A328273 1,2 %A A328273 _Amiram Eldar_, Oct 10 2019