%I
%S 1,9,14,42,161,161,798,1400,86156,123656,419430
%N Values of bphi(n) = bphi(n+1), where bphi is the biunitary analog of Euler's totient function (A116550).
%C The biunitary totient function of numbers n such that n and n+1 have the same function value (A293184).
%C The biunitary version of A003275.
%F a(n) = A116550(A293184(n)).
%e 9 is in the sequence since 9 = bphi(14) = bphi(15).
%t bphi[1] = 1; bphi[n_] := With[{pp = Power @@@ FactorInteger[n]}, Count[Range[n], m_ /; Intersection[pp, Power @@@ FactorInteger[m]] == {}]]; a={}; b1=0; Do[b2 = bphi[k]; If[b1 == b2, a = AppendTo[a, b1]]; b1 = b2, {k, 1, 10^2}]; a (* after _JeanFrançois Alcover_ at A116550 *)
%Y Cf. A116550, A293184.
%K nonn,more
%O 1,2
%A _Amiram Eldar_, Oct 22 2017
%E a(10)a(11) from _Michel Marcus_, Nov 14 2017
