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-5 of 5 results.

A344974 Numbers k such that A011772(k) divides A344875(k).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 16, 17, 18, 19, 21, 23, 24, 25, 26, 27, 28, 29, 31, 32, 34, 36, 37, 39, 40, 41, 43, 47, 49, 50, 53, 55, 57, 58, 59, 61, 64, 67, 68, 71, 73, 74, 75, 78, 79, 81, 82, 83, 89, 93, 96, 97, 98, 100, 101, 103, 106, 107, 109, 111, 113, 120, 121, 122, 125, 127, 128, 129, 131, 136, 137
Offset: 1

Views

Author

Antti Karttunen, Jun 04 2021

Keywords

Crossrefs

Cf. A011772, A344875, A344884 (characteristic function).
Positions of ones in A344970, of zeros in A344973.
Union of A000961 and A344975. Complement of A344980.
Cf. also A344595 (subsequence).

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

Cf. A011772, A344694, A344875, A344878, A344973, A344976.
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)); };

A344694 Numbers k, not powers of primes, for which A011772(k) divides A344875(k), and for all proper divisors d of k, A011772(d) < A011772(k).

Original entry on oeis.org

900, 1260, 1560, 3740, 6552, 6669, 9680, 18981, 19880, 35784, 36080, 59040, 62238, 62244, 81872, 103730, 108500, 118910, 134420, 160160, 171740, 185724, 211072, 217833, 222224, 225929, 227528, 259325, 351072, 384944, 404294, 414778, 422604, 425178, 446600, 456228, 463008, 488205, 490105, 527100, 574308, 581184, 598400
Offset: 1

Views

Author

Antti Karttunen, Jun 05 2021

Keywords

Comments

Has many terms common with A344595.

Crossrefs

Cf. A011772, A344880, A344973.
Intersection of A024619, A344881 and A344974. Intersection of A344881 and A344975.
Cf. also A344595, A344980.

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)); };
A344880(n) = { my(x=A011772(n)); fordiv(n, d, if(A011772(d)==x, return(d==n))); };
A344973(n) = (A344875(n)%A011772(n));
isA344694(n) = ((n>1)&&!isprimepower(n)&&(0==A344973(n))&&A344880(n));

A344978 Numbers k such that A011772(k) is equal to A344878(k), but k is not a power of prime.

Original entry on oeis.org

21, 26, 39, 50, 57, 74, 75, 78, 93, 98, 111, 122, 129, 146, 147, 150, 183, 194, 201, 205, 218, 219, 222, 237, 242, 291, 294, 301, 305, 309, 314, 327, 338, 362, 363, 366, 381, 386, 405, 417, 438, 452, 453, 458, 471, 482, 489, 505, 507, 543, 554, 578, 579, 582, 597, 605, 610, 626, 633, 654, 657, 669, 674, 676, 687
Offset: 1

Views

Author

Antti Karttunen, Jun 04 2021

Keywords

Comments

Numbers k for which A344976(k) = 0, and A001221(k) > 1.

Crossrefs

Cf. A000961, A001221, A011772, A344878, A344970, A344976.
Subsequence of A344975. Intersection of A024619 and A344979.

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
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))));
isA344978(n) = (omega(n)>1&&(A344878(n)==A011772(n)));

Formula

For all n, A344970(a(n)) = 1.

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

Cf. A011772, A344694, A344875, A344975.
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-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.