login
A348932
Numbers k congruent to 1 or 5 mod 6, for which A348930(k) > k.
4
7, 13, 19, 25, 31, 37, 43, 61, 67, 73, 79, 91, 97, 103, 109, 121, 127, 133, 139, 151, 157, 163, 175, 181, 193, 199, 211, 217, 223, 229, 241, 247, 259, 271, 277, 283, 289, 301, 307, 313, 325, 331, 337, 343, 349, 367, 373, 379, 397, 403, 409, 421, 427, 433, 439, 457, 463, 469, 475, 481, 487, 499, 511, 523, 529, 541
OFFSET
1,1
COMMENTS
See comments in A348930.
MATHEMATICA
s[n_] := n / 3^IntegerExponent[n, 3]; Select[Range[550], MemberQ[{1, 5}, Mod[#, 6]] && s[DivisorSigma[1, #]] > # &] (* Amiram Eldar, Nov 04 2021 *)
PROG
(PARI)
A038502(n) = (n/3^valuation(n, 3));
A348930(n) = A038502(sigma(n));
isA348932(n) = ((n%2)&&(n%3)&&(A348930(n)>n));
CROSSREFS
Cf. also A348742, A348754.
Sequence in context: A331425 A260682 A354936 * A184521 A123843 A277093
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 04 2021
STATUS
approved