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 A318475 #10 May 15 2023 08:46:21 %S A318475 0,1,1,2,1,2,1,5,2,2,1,3,1,2,2,14,1,3,1,3,2,2,1,6,2,2,5,3,1,3,1,42,2, %T A318475 2,2,4,1,2,2,6,1,3,1,3,3,2,1,15,2,3,2,3,1,6,2,6,2,2,1,4,1,2,3,132,2,3, %U A318475 1,3,2,3,1,7,1,2,3,3,2,3,1,15,14,2,1,4,2,2,2,6,1,4,2,3,2,2,2,43,1,3,3,4,1,3,1,6,3 %N A318475 Additive with a(p^e) = A000108(e). %H A318475 Antti Karttunen, <a href="/A318475/b318475.txt">Table of n, a(n) for n = 1..65537</a> %H A318475 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>. %F A318475 a(n) = A007814(A318476(n)). %t A318475 a[n_] := Total@ CatalanNumber[FactorInteger[n][[;; , 2]]]; a[1] = 0; Array[a, 100] (* _Amiram Eldar_, May 15 2023 *) %o A318475 (PARI) %o A318475 A000108(n) = (binomial(2*n, n)/(n+1)); %o A318475 A318475(n) = vecsum(apply(e -> A000108(e),factor(n)[,2])); %Y A318475 Cf. A000108, A318476. %K A318475 nonn %O A318475 1,4 %A A318475 _Antti Karttunen_, Aug 29 2018