cp's OEIS Frontend

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.

A322869 a(n) = A000120(A048675(n)).

This page as a plain text file.
%I A322869 #14 Dec 31 2018 13:23:27
%S A322869 0,1,1,1,1,2,1,2,1,2,1,1,1,2,2,1,1,2,1,2,2,2,1,2,1,2,2,2,1,3,1,2,2,2,
%T A322869 2,2,1,2,2,3,1,3,1,2,1,2,1,2,1,2,2,2,1,3,2,3,2,2,1,1,1,2,2,2,2,3,1,2,
%U A322869 2,3,1,3,1,2,2,2,2,3,1,1,1,2,1,2,2,2,2,3,1,2,2,2,2,2,2,3,1,2,2,2,1,3,1,3,3
%N A322869 a(n) = A000120(A048675(n)).
%H A322869 Antti Karttunen, <a href="/A322869/b322869.txt">Table of n, a(n) for n = 1..16384</a>
%H A322869 Antti Karttunen, <a href="/A322869/a322869.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%H A322869 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H A322869 <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%F A322869 a(n) = A000120(A048675(n)) = A000120(A322821(n)).
%F A322869 a(n) = A001221(A097248(n)) = A001222(A097248(n)).
%F A322869 If n is squarefree, then a(n) = A001221(n) = A322862(n).
%F A322869 a(A002110(n)) = n.
%t A322869 Array[If[# == 1, 0, DigitCount[Total@ Map[#2*2^(PrimePi@ #1 - 1) & @@ # &, FactorInteger[#]], 2, 1]] &, 105]  (* _Michael De Vlieger_, Dec 31 2018 *)
%o A322869 (PARI)
%o A322869 A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; }; \\ From A048675
%o A322869 A322869(n) = hammingweight(A048675(n));
%Y A322869 Cf. A000120, A001221, A001222, A048675, A097248, A322821, A322862, A322868.
%Y A322869 Cf. A002110 (position of the first occurrence of n).
%K A322869 nonn
%O A322869 1,6
%A A322869 _Antti Karttunen_, Dec 31 2018