|
%I #18 Jul 30 2021 08:50:23
%S 9,21,25,35,49,55,77,95,121,125,133,143,169,185,203,209,221,265,289,
%T 299,301,319,323,343,361,371,377,413,427,437,445,451,473,481,493,497,
%U 511,527,529,531,539,553,559,583,589,605,611,623,629,667,679,689,703,707,737,763,767,779,791,793,799,805,817,841,845,847,851,869,871,899,901
%N Numbers k such that A324658(A156552(k)) is zero.
%C First even term is A005940(1+A324647(1)) = A005940(1+1116225) = 1912898. - Typo corrected by _Antti Karttunen_, Jul 21 2021
%H Antti Karttunen, <a href="/A324722/b324722.txt">Table of n, a(n) for n = 1..694</a> (based on Hans Havermann's factorization of A156552)
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%o (PARI)
%o isA324652(n) = ((2*n)==bitand(2*n, sigma(n)));
%o isA324722(n) = if(n>1,isA324652(A156552(n)));
%o k=0; n=0; while(k<105, n++; if(isA324722(n), k++; print1(n,", ")));
%Y Cf. A005940, A156552, A324647, A324652, A324658, A324723.
%Y Positions of zeros in A324716.
%K nonn
%O 1,1
%A _Antti Karttunen_, Mar 15 2019
|
