|
%I #11 Apr 22 2023 11:38:56
%S 2,2,2,2,0,4,0,4,0,2,0,6,0,0,2,4,0,4,0,2,0,2,0,10,0,0,0,2,0,6,0,4,0,0,
%T 0,8,0,0,0,4,0,2,0,2,2,2,0,14,0,0,0,2,0,2,0,2,0,2,0,10,0,0,0,4,0,4,0,
%U 0,0,2,0,14,0,0,0,0,0,2,0,8,0,2,0,4,0,0
%N Number of numbers k such that iphi(k) = n, where iphi is the infinitary totient function A091732.
%C a(n) is even for all n, because if k is a solution to iphi(k) = n, and A007814(k) is even, then 2*k is also a solution, i.e., iphi(2*k) = n.
%H Amiram Eldar, <a href="/A362485/b362485.txt">Table of n, a(n) for n = 1..10000</a>
%F a(A362486(n)) = 0.
%t a[n_] := Length[invIPhi[n]]; Array[a, 100] (* using the function invIPhi from A362484 *)
%Y Row lengths of A362484.
%Y Cf. A007814, A091732, A362486 (positions of 0's), A362487 (indices of records).
%Y Similar sequences: A014197, A063740, A361967, A362181.
%K nonn
%O 1,1
%A _Amiram Eldar_, Apr 22 2023
|
