|
%I #8 Feb 11 2021 14:22:45
%S 2,4,7,8,10,12,14,17,18,19,22,24,26,27,32,33,34,38,39,40,42,44,47,48,
%T 49,52,55,58,59,60,62,64,66,68,70,72,74,82,83,84,86,87,88,89,91,92,93,
%U 97,102,104,105,107,108,109,110,111,112,115,117,118,121,122,126,127,128,129,132,133,134,137,139,142,144,149
%N Numbers k for which A254049(k) [= A048673(2k-1)] is a multiple of 3.
%C Numbers k for which A292251(2k-1) > 0.
%H Antti Karttunen, <a href="/A341350/b341350.txt">Table of n, a(n) for n = 1..16399</a>
%H <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%o (PARI)
%o A003961(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
%o A341346(n) = (((A003961(n+n-1)+1)/2)%3);
%o isA341350(n) = (0==A341346(n));
%Y Positions of zeros in A341346.
%Y Cf. A003961, A048673, A254049, A292251, A341349 (complement).
%K nonn
%O 1,1
%A _Antti Karttunen_, Feb 10 2021
|
