A334106 - OEIS

%I #6 Apr 18 2020 19:45:33

%S 283,301,329,343,347,361,379,381,383,387,399,413,417,419,423,431,437,

%T 441,463,469,473,483,487,489,491,497,509,513,517,519,523,529,531,539,

%U 547,551,553,557,559,566,567,571,573,589,591,597,599,602,603,609,611,621,627,631,633,635,637,639,643,645,649,651,653,658,665

%N Numbers n for which A329697(n) == 6.

%H Antti Karttunen, <a href="/A334106/b334106.txt">Table of n, a(n) for n = 1..12096; all terms < 2^17</a>

%o (PARI)

%o A329697(n) = if(!bitand(n,n-1),0,1+A329697(n-(n/vecmax(factor(n)[, 1]))));

%o isA334106(n) = (6==A329697(n));

%Y Row 6 of A334100.

%Y Cf. A052126, A171462, A209229, A329697, A334101, A334102, A334103, A334104, A334105.

%Y Cf. A334096 (primes present).

%K nonn

%O 1,1

%A _Antti Karttunen_, Apr 14 2020