cp's OEIS Frontend

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.

A344977 Numbers k for which A011772(k) exceeds A344878(k).

This page as a plain text file.
%I A344977 #12 Jun 05 2021 16:44:09
%S A344977 14,15,30,33,35,38,42,45,51,56,62,63,65,69,70,84,85,86,87,88,90,91,99,
%T A344977 102,104,105,114,115,116,117,123,126,130,133,134,135,141,143,145,152,
%U A344977 153,154,158,159,161,165,168,170,172,174,175,177,180,182,185,186,195,200,204,206,210,213,215,217,221,225,234,235
%N A344977 Numbers k for which A011772(k) exceeds A344878(k).
%F A344977 {k such that A344976(k) < 0}.
%o A344977 (PARI)
%o A344977 A011772(n) = { if(n==1, return(1)); my(f=factor(if(n%2, n, 2*n)), step=vecmax(vector(#f~, i, f[i, 1]^f[i, 2]))); forstep(m=step, 2*n, step, if(m*(m-1)/2%n==0, return(m-1)); if(m*(m+1)/2%n==0, return(m))); }; \\ From A011772
%o A344977 A344878(n) = if(1==n,n, my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]^(f[2, i]+(2==f[1, i]))-1))));
%o A344977 isA344977(n) = (A011772(n)>A344878(n));
%Y A344977 Cf. A011772, A344878.
%Y A344977 Positions of negative terms in A344976.
%Y A344977 Cf. A344595 (subsequence).
%K A344977 nonn
%O A344977 1,1
%A A344977 _Antti Karttunen_, Jun 04 2021