%I #9 Apr 18 2020 19:45:14
%S 19,21,23,27,29,31,33,35,37,38,39,42,45,46,53,54,55,58,61,62,65,66,70,
%T 73,74,75,76,78,83,84,89,90,92,101,103,106,108,110,113,116,119,122,
%U 123,124,125,130,132,140,146,148,150,152,153,156,166,168,178,180,184,187,202,205,206,212,216,220,221,226,232,238,241,244
%N Numbers n for which A329697(n) == 3.
%C Numbers n for which A171462(n) = n-A052126(n) is in A334102.
%C Among the first 2821 terms (terms < 2^31), there are terms with binary weights 2, 3, 4, 5, 6 and 8. For example, 33 is the first term with binary weight 2, and 255 is the first term with binary weight 8.
%H Antti Karttunen, <a href="/A334103/b334103.txt">Table of n, a(n) for n = 1..2821; all terms <= 2^31</a>
%o (PARI)
%o A329697(n) = if(!bitand(n,n-1),0,1+A329697(n-(n/vecmax(factor(n)[, 1]))));
%o isA334103(n) = (3==A329697(n));
%Y Row 3 of A334100.
%Y Cf. A052126, A171462, A209229, A329697, A334101, A334102, A334104, A334106.
%Y Cf. A334093 (primes present), A334094.
%K nonn
%O 1,1
%A _Antti Karttunen_, Apr 14 2020
|