This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A348932 #11 Nov 04 2021 20:47:08 %S A348932 7,13,19,25,31,37,43,61,67,73,79,91,97,103,109,121,127,133,139,151, %T A348932 157,163,175,181,193,199,211,217,223,229,241,247,259,271,277,283,289, %U A348932 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 %N A348932 Numbers k congruent to 1 or 5 mod 6, for which A348930(k) > k. %C A348932 See comments in A348930. %H A348932 <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a> %t A348932 s[n_] := n / 3^IntegerExponent[n, 3]; Select[Range[550], MemberQ[{1, 5}, Mod[#, 6]] && s[DivisorSigma[1, #]] > # &] (* _Amiram Eldar_, Nov 04 2021 *) %o A348932 (PARI) %o A348932 A038502(n) = (n/3^valuation(n, 3)); %o A348932 A348930(n) = A038502(sigma(n)); %o A348932 isA348932(n) = ((n%2)&&(n%3)&&(A348930(n)>n)); %Y A348932 Cf. A007310, A348930, A348931. %Y A348932 Cf. also A348742, A348754. %K A348932 nonn %O A348932 1,1 %A A348932 _Antti Karttunen_, Nov 04 2021