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 A232094 #17 Feb 07 2024 01:17:03
%S A232094 0,1,2,1,2,3,3,2,2,4,3,2,2,3,4,1,3,5,4,4,3,5,3,3,3,4,5,2,4,4,5,3,2,5,
%T A232094 4,3,3,4,4,3,3,5,6,5,4,5,3,3,3,4,5,3,5,6,5,3,4,6,5,4,4,5,6,3,5,6,4,4,
%U A232094 4,5,5,4,4,5,5,4,4,4,6,5,2,6,5,3,4,4,5
%N A232094 a(n) = A060130(A000217(n)); number of nonzero digits in factorial base representation (A007623) of 0+1+2+...+n.
%C A232094 The next 1 after a(1), a(3) and a(15) occurs at n=224, as A000217(224) = 25200 = 5 * 7!.
%H A232094 Antti Karttunen, <a href="/A232094/b232094.txt">Table of n, a(n) for n = 0..10000</a>
%F A232094 a(n) = A060130(A000217(n)).
%F A232094 a(n) = A230410(A226061(n+1)). [Not a practical way to compute this sequence. Please see comments at A230410.]
%t A232094 a[n_] := Module[{k = n*(n+1)/2, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; Count[s, _?(# > 0 &)]]; Array[a, 100, 0] (* _Amiram Eldar_, Feb 07 2024 *)
%o A232094 (Scheme)
%o A232094 (define (A232094 n) (A060130 (A000217 n)))
%Y A232094 Cf. A000217, A007623, A060130, A226061, A230410, A232095.
%K A232094 nonn,base
%O A232094 0,3
%A A232094 _Antti Karttunen_, Nov 18 2013