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.

Showing 1-3 of 3 results.

A344975 Numbers k such that A011772(k) divides A344875(k), but k is not a power of prime (in A000961).

Original entry on oeis.org

6, 10, 18, 21, 24, 26, 28, 34, 36, 39, 40, 50, 55, 57, 58, 68, 74, 75, 78, 82, 93, 96, 98, 100, 106, 111, 120, 122, 129, 136, 146, 147, 150, 155, 162, 164, 171, 178, 183, 194, 196, 201, 202, 203, 205, 218, 219, 222, 224, 226, 237, 242, 250, 253, 274, 288, 291, 292, 294, 298, 300, 301, 305, 309, 314, 324, 327, 333
Offset: 1

Views

Author

Antti Karttunen, Jun 04 2021

Keywords

Comments

This is not a subsequence of A344882. The first terms of this sequence that do not occur there are: 900, 1260, 1560, ... etc, see A344694. First terms of A344882 not present here are: 60, 66, 88, 92, 105, etc.

Crossrefs

Intersection of A024619 and A344974.
Cf. also A344595, A344694, A344978 (subsequences).

Programs

A344595 Numbers k such that A011772(k) > A344878(k) and A011772(k) is a divisor of A344875(k).

Original entry on oeis.org

900, 1260, 1302, 1560, 2100, 3906, 4440, 6300, 6552, 6669, 9680, 11544, 12987, 15368, 18981, 19240, 19880, 24120, 26208, 35784, 36080, 42680, 46104, 57720, 59040, 59640, 62238, 62244, 71136, 74592, 76840, 79376, 81872, 84700, 101680, 103730, 108500, 124488, 128040, 145188, 160160, 168020, 171740, 178920, 185724, 201608
Offset: 1

Views

Author

Antti Karttunen, Jun 05 2021

Keywords

Comments

Numbers k for which A344973(k) = 0 and A344976(k) < 0.
It seems that in these cases, by necessity A011772(k) < A344875(k), i.e., A011772(k) is a proper divisor of A344875(k).
Has many terms common with A344694.

Crossrefs

Intersection of A024619, A344974 and A344977.
Intersection of A344975 and A344977.

Programs

  • PARI
    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
    A344875(n) = { my(f=factor(n)~); prod(i=1, #f, (f[1, i]^(f[2, i]+(2==f[1, i]))-1)); };
    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))));
    isA344595(n) = { my(u=A011772(n)); (u>A344878(n)&&0==(A344875(n)%u)); };

A344980 Numbers k such that A011772(k) does not divide A344875(k).

Original entry on oeis.org

12, 14, 15, 20, 22, 30, 33, 35, 38, 42, 44, 45, 46, 48, 51, 52, 54, 56, 60, 62, 63, 65, 66, 69, 70, 72, 76, 77, 80, 84, 85, 86, 87, 88, 90, 91, 92, 94, 95, 99, 102, 104, 105, 108, 110, 112, 114, 115, 116, 117, 118, 119, 123, 124, 126, 130, 132, 133, 134, 135, 138, 140, 141, 142, 143, 144, 145, 148, 152, 153, 154, 156
Offset: 1

Views

Author

Antti Karttunen, Jun 05 2021

Keywords

Comments

The first term not in A344883 is 60. First terms included in A344883, but not here are: 900, 1260, 1560, 3740, 6552, 6669, etc. (A344694). See also comments in A344975.

Crossrefs

Complement of A344974. Positions of nonzero terms in A344973, and of terms > 1 in A344970.

Programs

  • PARI
    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
    A344875(n) = { my(f=factor(n)~); prod(i=1, #f, (f[1, i]^(f[2, i]+(2==f[1, i]))-1)); };
    isA344980(n) = (A344875(n)%A011772(n));
Showing 1-3 of 3 results.