A347250 Numbers k for which A331410(k) < A336361(k).

9, 17, 18, 34, 36, 49, 67, 68, 71, 72, 81, 97, 98, 134, 136, 142, 144, 147, 162, 193, 194, 196, 268, 271, 272, 283, 284, 288, 291, 293, 294, 324, 386, 388, 392, 536, 541, 542, 544, 566, 568, 576, 579, 582, 586, 587, 588, 647, 648, 679, 772, 776, 784, 961, 1072, 1082, 1084, 1087, 1088, 1132, 1136, 1151, 1152, 1158, 1163

Offset

1,1

Comments

If k is a term, then also 2*k is present in this sequence.

Links

Table of n, a(n) for n=1..65.

Prog

(PARI)
A331410(n) = { my(f=factor(n)); sum(k=1, #f~, if(2==f[k, 1], 0, f[k, 2]*(1+A331410(f[k, 1]+1)))); };
A336361(n) = if(!bitand(n, n-1), 0, 1+A336361(sigma(n>>valuation(n, 2))));
A347249(n) = (A331410(n)-A336361(n));
isA347250(n) = (A347249(n)<0);

Crossrefs

Cf. A331410, A336361.

Positions of negative terms in A347249.

Sequence in context: A224442 A343111 A364540 * A192049 A133246 A190151

Adjacent sequences: A347247 A347248 A347249 * A347251 A347252 A347253

Keyword

nonn

Author

Antti Karttunen, Aug 28 2021

Status

approved