A353356 Numbers k for which A353328(k) > A353329(k). Positions of 1's in A353354.
2, 5, 10, 11, 16, 17, 22, 23, 30, 31, 34, 40, 41, 46, 47, 54, 55, 59, 62, 66, 67, 70, 73, 80, 82, 83, 85, 88, 94, 97, 102, 103, 109, 115, 118, 127, 128, 130, 134, 135, 136, 137, 138, 146, 149, 154, 155, 157, 165, 166, 167, 176, 179, 184, 186, 187, 190, 191, 194, 197, 205, 206, 211, 218, 227, 233, 235, 238, 240, 241
Offset: 1
Keywords
Programs
-
PARI
A332823(n) = { my(f = factor(n),u=(sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2)%3); if(2==u,-1,u); }; A353354(n) = sumdiv(n,d,A332823(d)); isA353356(n) = (0<A353354(n));
-
PARI
A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; }; isA353356(n) = (2==((numdiv(n)*A048675(n))%3));
Comments