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.

Previous Showing 11-20 of 72 results. Next

A280194 Expansion of 1/(1 - Sum_{k>=1} mu(k)^2*x^k), where mu(k) is the Moebius function (A008683).

Original entry on oeis.org

1, 1, 2, 4, 7, 14, 27, 52, 100, 192, 370, 712, 1370, 2638, 5077, 9772, 18809, 36203, 69682, 134122, 258154, 496887, 956393, 1840836, 3543185, 6819813, 13126568, 25265616, 48630484, 93602468, 180163165, 346772545, 667457180, 1284701149, 2472753448, 4759480146, 9160901700, 17632623181, 33938733369, 65324235138, 125734088242
Offset: 0

Views

Author

Ilya Gutkovskiy, Dec 28 2016

Keywords

Comments

Number of compositions (ordered partitions) into squarefree parts (A005117).
INVERT transform of the absolute value of the Möbius function (A008966). - Alois P. Heinz, Feb 11 2021

Examples

			a(4) = 7 because we have [3, 1], [2, 2], [2, 1, 1], [1, 3], [1, 2, 1], [1, 1, 2] and [1, 1, 1, 1].
G.f. = 1 + x + 2*x^2 + 4*x^3 + 7*x^4 + 14*x^5 + 27*x^6 + 52*x^7 + ... - _Michael Somos_, Jul 13 2023

Links

Crossrefs

Cf. A005117, A008683, A008966, A073576.

Programs

  • Maple
    a:= proc(n) option remember; `if`(n=0, 1, add(
     `if`(numtheory[issqrfree](j), a(n-j), 0), j=1..n))
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Feb 04 2021
  • Mathematica
    nmax = 40; CoefficientList[Series[1/(1 - Sum[MoebiusMu[k]^2 x^k, {k, 1, nmax}]), {x, 0, nmax}], x]
  • PARI
    {a(n) = if(n<0, 0, polcoeff( 1/(1 - sum(k=1, n, x^k*abs(moebius(k)), x*O(x^n))), n, x))}; /* Michael Somos, Jul 13 2023 */

Formula

G.f.: 1/(1 - Sum_{k>=1} mu(k)^2*x^k).

A377047 Antidiagonal-sums of the array A377046(n,k) = n-th term of k-th differences of nonsquarefree numbers (A013929).

Original entry on oeis.org

4, 12, 7, 22, 14, 17, 39, 0, 37, 112, -337, 1103, -2570, 5868, -12201, 24670, -47528, 88283, -155910, 259140, -393399, 512341, -456546, -191155, 2396639, -8213818, 21761218, -50922953, 110269343, -225991348, 444168748, -844390064, 1561482582, -2817844477
Offset: 1

Views

Author

Gus Wiseman, Oct 19 2024

Keywords

Comments

These are the row-sums of the triangle-version of A377046.

Examples

			The third antidiagonal of A377046 is (9, 1, -3), so a(3) = 7.

Crossrefs

The version for primes is A140119, noncomposites A376683, composites A377034.
For squarefree instead of nonsquarefree numbers we have A377039.
The absolute value version is A377048.
For leading column we have A377049.
For first position of 0 in each row we have A377050.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
Cf. A007674, A053797, A053806, A061398, A072284, A112925, A112926, A120992, A376311, A376591, A376592, A377051.

Programs

  • Mathematica
    nn=20;
t=Table[Take[Differences[NestList[NestWhile[#+1&,#+1,SquareFreeQ[#]&]&,4,2*nn],k],nn],{k,0,nn}];
Total/@Table[t[[j,i-j+1]],{i,nn},{j,i}]

A376591 Inflection and undulation points in the sequence of squarefree numbers (A005117).

Original entry on oeis.org

1, 4, 9, 11, 12, 14, 16, 18, 21, 24, 27, 32, 33, 35, 40, 43, 48, 53, 55, 56, 58, 62, 65, 68, 71, 79, 84, 87, 96, 98, 99, 101, 103, 107, 110, 113, 118, 120, 121, 123, 128, 131, 134, 137, 142, 144, 145, 147, 152, 153, 155, 158, 163, 165, 166, 172, 175, 179, 184
Offset: 1

Views

Author

Gus Wiseman, Oct 04 2024

Keywords

Comments

These are points at which the second differences (A376590) are zero.

Examples

			The squarefree numbers (A005117) are:
  1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, ...
with first differences (A076259):
  1, 1, 2, 1, 1, 3, 1, 2, 1, 1, 2, 2, 2, 1, 1, 3, 3, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, ...
with first differences (A376590):
  0, 1, -1, 0, 2, -2, 1, -1, 0, 1, 0, 0, -1, 0, 2, 0, -2, 0, 1, -1, 0, 1, -1, 0, 1, ...
with zeros at (A376591):
 1, 4, 9, 11, 12, 14, 16, 18, 21, 24, 27, 32, 33, 35, 40, 43, 48, 53, 55, 56, 58, ...

Links

Crossrefs

The first differences were A076259, see also A375927, A376305, A376306, A376307, A376311.
These are the zeros of A376590.
The complement is A376592.
A000040 lists the prime numbers, differences A001223.
A005117 lists squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
For inflections and undulations: A064113 (prime), A376602 (composite), A376588 (non-perfect-power), A376594 (nonsquarefree), A376597 (prime-power), A376600 (non-prime-power).
For squarefree numbers: A076259 (first differences), A376590 (second differences), A376592 (nonzero curvature).
Cf. A007674, A036263, A053797, A053806, A061398, A072284, A112925, A112926, A120992, A333254, A376593, A376655.

Programs

  • Mathematica
    Join@@Position[Differences[Select[Range[100],SquareFreeQ],2],0]

A377050 Position of first appearance of zero in the n-th differences of the nonsquarefree numbers, or 0 if it does not appear.

Original entry on oeis.org

0, 0, 5, 11, 4, 129, 10, 89, 16, 161, 72, 77325, 71, 4870, 70, 253, 75, 737923, 166, 1648316, 165, 8753803, 164, 208366710, 163, 99489971, 162, 49493333, 161
Offset: 0

Views

Author

Gus Wiseman, Oct 19 2024

Keywords

Comments

If a(29) is not 0, then it is > 10^12. - Lucas A. Brown, Oct 25 2024

Examples

			The fourth differences of A013929 begin: -6, -2, 5, 0, -7, 9, -6, 6, -7, ... so a(4) = 4.

Links

Crossrefs

The version for primes is A376678, noncomposites A376855, composites A377037.
For squarefree instead of nonsquarefree numbers we have A377042.
For antidiagonal-sums we have A377047, absolute A377048.
For leading column we have A377049.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
Cf. A000961, A007674, A053797, A053806, A061398, A072284, A084758, A112925, A120992, A376311, A376591, A377051.

Programs

  • Mathematica
    nn=10000;
u=Table[Differences[Select[Range[nn],!SquareFreeQ[#]&],k],{k,2,16}];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
m=Table[Position[u[[k]],0][[1,1]],{k,mnrm[Union[First/@Position[u,0]]]}]

Extensions

a(17)-a(28) from Lucas A. Brown, Oct 25 2024

A379308 Number of integer partitions of n with a unique squarefree part.

Original entry on oeis.org

0, 1, 1, 1, 0, 2, 2, 2, 0, 3, 5, 5, 1, 6, 9, 9, 2, 10, 14, 18, 6, 18, 24, 30, 11, 28, 39, 47, 24, 48, 63, 76, 41, 74, 95, 118, 65, 120, 149, 181, 107, 181, 221, 266, 169, 266, 335, 398, 262, 394, 487, 578, 391, 578, 697, 844, 592, 834, 997, 1198, 867
Offset: 0

Views

Author

Gus Wiseman, Dec 26 2024

Keywords

Examples

			The a(1) = 1 through a(11) = 5 partitions:
  (1)  (2)  (3)  .  (5)    (6)    (7)    .  (5,4)    (10)     (11)
                    (4,1)  (4,2)  (4,3)     (8,1)    (6,4)    (7,4)
                                            (4,4,1)  (8,2)    (8,3)
                                                     (9,1)    (9,2)
                                                     (4,4,2)  (4,4,3)

Crossrefs

If all parts are squarefree we have A073576 (strict A087188), ranks A302478.
If no parts are squarefree we have A114374 (strict A256012), ranks A379307.
For composite instead of squarefree we have A379302 (strict A379303), ranks A379301.
For prime instead of squarefree we have A379304, (strict A379305), ranks A331915.
The strict case is A379309.
For old prime instead of squarefree we have A379314, (strict A379315), ranks A379312.
Ranked by A379316, positions of 1 in A379306.
A000041 counts integer partitions, strict A000009.
A005117 lists the squarefree numbers, differences A076259.
A013929 lists the nonsquarefree numbers, differences A078147.
A377038 gives k-th differences of squarefree numbers.
A379310 counts nonsquarefree prime indices.
Cf. A000586, A000607, A002095, A013928, A023895, A034891, A072284, A073247, A120327, A175804, A376657, A377430.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Count[#,_?SquareFreeQ]==1&]],{n,0,30}]

A379309 Number of strict integer partitions of n with a unique squarefree part.

Original entry on oeis.org

0, 1, 1, 1, 0, 2, 2, 2, 0, 2, 4, 4, 1, 4, 7, 7, 2, 6, 8, 11, 4, 9, 13, 17, 7, 13, 20, 22, 13, 20, 29, 33, 21, 29, 40, 47, 27, 41, 56, 64, 42, 59, 77, 85, 60, 74, 104, 115, 83, 101, 141, 155, 113, 138, 179, 206, 156, 183, 236, 272, 212, 239, 309, 343, 282, 315
Offset: 0

Views

Author

Gus Wiseman, Dec 27 2024

Keywords

Examples

			The a(9) = 2 through a(15) = 7 partitions:
  (5,4)  (10)   (11)   (9,3)  (13)     (14)     (15)
  (8,1)  (6,4)  (7,4)         (8,5)    (8,6)    (8,7)
         (8,2)  (8,3)         (12,1)   (9,5)    (9,6)
         (9,1)  (9,2)         (8,4,1)  (10,4)   (11,4)
                                       (12,2)   (12,3)
                                       (8,4,2)  (8,4,3)
                                       (9,4,1)  (9,4,2)

Crossrefs

If all parts are squarefree we have A087188, non-strict A073576 (ranks A302478).
If no parts are squarefree we have A256012, non-strict A114374 (ranks A379307).
For composite instead of squarefree we have A379303, non-strict A379302 (ranks A379301).
For prime instead of squarefree we have A379305, non-strict A379304 (ranks A331915).
The non-strict version is A379308, ranks A379316.
For old prime instead of squarefree we have A379315, non-strict A379314 (ranks A379312).
Ranked by A379316 /\ A005117 = squarefree positions of 1 in A379306.
A000041 counts integer partitions, strict A000009.
A005117 lists the squarefree numbers, differences A076259.
A013929 lists the nonsquarefree numbers, differences A078147.
A377038 gives k-th differences of squarefree numbers.
A379310 counts nonsquarefree prime indices.
Cf. A000586, A000607, A002095, A023895, A034891, A036497, A072284, A073247, A096258, A204389, A377430.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Count[#,_?SquareFreeQ]==1&]],{n,0,30}]
  • PARI
    lista(nn) = my(r=1, s=0); for(k=1, nn, if(issquarefree(k), s+=x^k, r*=1+x^k)); concat(0, Vec(r*s+O(x^(1+nn)))); \\ Jinyuan Wang, Feb 21 2025

Extensions

More terms from Jinyuan Wang, Feb 21 2025

A377040 Antidiagonal-sums of absolute value of the array A377038(n,k) = n-th term of k-th differences of squarefree numbers (A005117).

Original entry on oeis.org

1, 3, 4, 9, 13, 18, 28, 39, 106, 267, 595, 1212, 2286, 4041, 6720, 10497, 15387, 20914, 25894, 29377, 37980, 70785, 175737, 343806, 579751, 861934, 1162080, 1431880, 1688435, 2589533, 8731932, 23911101, 58109574, 130912573, 276067892, 543833014, 992784443
Offset: 0

Views

Author

Gus Wiseman, Oct 18 2024

Keywords

Examples

			The fourth antidiagonal of A377038 is (6, 1, -1, -2, -3), so a(4) = 13.

Crossrefs

The version for primes is A376681, noncomposites A376684, composites A377035.
These are the antidiagonal-sums of the absolute value of A377038.
The non-absolute version is A377039.
For nonsquarefree numbers we have A377048, non-absolute A377047.
For prime-powers we have A377053, non-absolute A377052.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
A377041 gives first column of A377038, for primes A007442 or A030016.
A377042 gives first position of 0 in each row of A377038.
Cf. A007674, A053797, A053806, A061398, A072284, A075526, A076259, A120992, A140119, A376311, A376590, A376591, A377046.

Programs

  • Mathematica
    nn=20;
t=Table[Take[Differences[NestList[NestWhile[#+1&,#+1,!SquareFreeQ[#]&]&,1,2*nn],k],nn],{k,0,nn}];
Total/@Table[Abs[t[[j,i-j+1]]],{i,nn},{j,i}]

A376592 Points of nonzero curvature in the sequence of squarefree numbers (A005117).

Original entry on oeis.org

2, 3, 5, 6, 7, 8, 10, 13, 15, 17, 19, 20, 22, 23, 25, 26, 28, 29, 30, 31, 34, 36, 37, 38, 39, 41, 42, 44, 45, 46, 47, 49, 50, 51, 52, 54, 57, 59, 60, 61, 63, 64, 66, 67, 69, 70, 72, 73, 74, 75, 76, 77, 78, 80, 81, 82, 83, 85, 86, 88, 89, 90, 91, 92, 93, 94, 95
Offset: 1

Views

Author

Gus Wiseman, Oct 04 2024

Keywords

Comments

These are points at which the second differences (A376590) are nonzero.

Examples

			The squarefree numbers (A005117) are:
  1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, ...
with first differences (A076259):
  1, 1, 2, 1, 1, 3, 1, 2, 1, 1, 2, 2, 2, 1, 1, 3, 3, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, ...
with first differences (A376590):
  0, 1, -1, 0, 2, -2, 1, -1, 0, 1, 0, 0, -1, 0, 2, 0, -2, 0, 1, -1, 0, 1, -1, 0, 1, ...
with nonzeros at (A376591):
  2, 3, 5, 6, 7, 8, 10, 13, 15, 17, 19, 20, 22, 23, 25, 26, 28, 29, 30, 31, 34, 36, ...

Links

Crossrefs

The first differences were A076259, see also A375927, A376305, A376306, A376307, A376311.
These are the nonzeros of A376590.
The complement is A376591.
A000040 lists the prime numbers, differences A001223.
A005117 lists squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
For points of nonzero curvature: A333214 (prime), A376603 (composite), A376589 (non-perfect-power), A376595 (nonsquarefree), A376598 (prime-power), A376601 (non-prime-power).
For squarefree numbers: A076259 (first differences), A376590 (second differences), A376591 (inflection and undulation points).
Cf. A007674, A036263, A053797, A053806, A061398, A072284, A112925, A112926, A120992, A333254, A373198, A376655.

Programs

  • Mathematica
    Join@@Position[Sign[Differences[Select[Range[100], SquareFreeQ],2]],1|-1]

A377039 Antidiagonal-sums of the array A377038(n,k) = n-th term of k-th differences of squarefree numbers (A005117).

Original entry on oeis.org

1, 3, 4, 9, 1, 18, 8, -9, 106, -237, 595, -1170, 2276, -3969, 6640, -10219, 14655, -18636, 19666, -12071, -13056, 69157, -171441, 332756, -552099, 798670, -982472, 901528, -116173, -2351795, 8715186, -23856153, 57926066, -130281007, 273804642, -535390274
Offset: 0

Views

Author

Gus Wiseman, Oct 18 2024

Keywords

Comments

These are row-sums of the triangle-version of A377038.

Examples

			The fourth antidiagonal of A377038 is (6,1,-1,-2,-3), so a(4) = 1.

Crossrefs

The version for primes is A140119, noncomposites A376683, composites A377034.
These are the antidiagonal-sums of A377038.
The absolute version is A377040.
For nonsquarefree numbers we have A377047.
For prime-powers we have A377052.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
A377041 gives first column of A377038, for primes A007442 or A030016.
A377042 gives first position of 0 in each row of A377038.
Cf. A007674, A053797, A053806, A061398, A072284, A075526, A076259, A120992, A376311, A376590, A376591, A377046.

Programs

  • Mathematica
    nn=20;
t=Table[Take[Differences[NestList[NestWhile[#+1&,#+1,!SquareFreeQ[#]&]&,1,2*nn],k],nn],{k,0,nn}];
Total/@Table[t[[j,i-j+1]],{i,nn},{j,i}]

A377042 Position of first zero in the n-th differences of the squarefree numbers (A005117), or 0 if it does not appear.

Original entry on oeis.org

0, 0, 1, 11, 8, 57, 14, 11, 13, 1019, 44, 1250, 43, 2721, 42, 249522, 2840, 1989839, 2839, 3373774, 4933, 142715511, 42793, 435650856, 5266, 30119361, 104063, 454172978707, 100285, 434562125244, 2755089, 2409925829164, 2485612
Offset: 0

Views

Author

Gus Wiseman, Oct 18 2024

Keywords

Comments

a(n) for n even appear to be smaller than a(n) for n odd. - Chai Wah Wu, Oct 19 2024
a(33) > 10^13, unless it is 0. - Lucas A. Brown, Nov 15 2024

Examples

			The fourth differences begin: -3, 3, 1, -6, 7, -5, 3, 0, -2, ... so a(4) = 8

Links

Crossrefs

The version for primes is A376678, noncomposites A376855, composites A377037.
This is the first position of 0 in each row of A377038.
For nonsquarefree numbers we have A377050.
For prime-powers we have A377055.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
A377039 gives antidiagonal-sums of A377038, absolute version A377040.
A377041 gives first column of A377038, for primes A007442 or A030016.
Cf. A007674, A053797, A053806, A061398, A072284, A076259, A112925, A120992, A376311, A376590, A376591, A377046.

Programs

  • Mathematica
    nn=10000;
u=Table[Differences[Select[Range[nn],SquareFreeQ],k],{k,2,16}];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
m=Table[Position[u[[k]],0][[1,1]],{k,mnrm[Union[First/@Position[u,0]]]}]

Extensions

a(15)-a(20) from Chai Wah Wu, Oct 19 2024
a(21)-a(32) from Lucas A. Brown, Nov 15 2024
Previous Showing 11-20 of 72 results. Next

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

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