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

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

A377041 First term of the n-th differences of the squarefree numbers. Inverse zero-based binomial transform of A005117.

Original entry on oeis.org

1, 1, 0, 1, -3, 6, -8, 3, 22, -92, 252, -578, 1189, -2255, 3991, -6617, 10245, -14626, 18666, -19635, 12104, 13090, -69122, 171478, -332718, 552138, -798629, 982514, -901485, 116219, 2351842, -8715135, 23856206, -57926011, 130281064, -273804584, 535390333
Offset: 0

Views

Author

Gus Wiseman, Oct 18 2024

Keywords

Crossrefs

The version for primes is A007442, noncomposites A030016, composites A377036.
This is the first column of A377038.
For nonsquarefree numbers we have A377049.
For prime-powers we have A377054.
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.
A377042 gives first position of 0 in each row of A377038.
Cf. A053797, A053806, A061398, A072284, A076259, A120992, A376311, A376590, A376591, A377040, A377046.

Programs

  • Mathematica
    q=Select[Range[100],SquareFreeQ];
t=Table[Sum[(-1)^(j-k)*Binomial[j,k]*q[[1+k]],{k,0,j}],{j,0,Length[q]/2}]

Formula

The inverse zero-based binomial transform of a sequence (q(0), q(1), q(2), ...) is the sequence p given by:
p(j) = sum_{k=0..j} (-1)^(j-k) binomial(j,k) q(k)

A376655 Sorted positions of first appearances in the second differences of consecutive squarefree numbers (A005117).

Original entry on oeis.org

1, 2, 3, 5, 6, 30, 61, 150, 514, 1025, 5153, 13390, 13391, 131964, 502651, 664312, 4387185, 5392318, 20613826
Offset: 1

Views

Author

Gus Wiseman, Oct 07 2024

Keywords

Comments

Warning: Do not confuse with A246655 (prime-powers exclusive).

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, ...
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, ...
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, ...
with sorted first appearances at (A376655):
  1, 2, 3, 5, 6, 30, 61, 150, 514, 1025, 5153, 13390, 13391, ...

Crossrefs

For first differences we had A376311 (first appearances in A076259).
These are the sorted positions of first appearances in A376590.
For prime-powers instead of squarefree numbers we have A376653/A376654.
For primes instead of squarefree numbers we have A376656.
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 second differences: A036263 (prime), A073445 (composite), A376559 (perfect-power), A376562 (non-perfect-power), A376593 (nonsquarefree), A376596 (prime-power inclusive), A376599 (non-prime-power inclusive).
For squarefree: A376591 (inflections and undulations), A376592 (nonzero curvature).
Cf. A000961, A007674, A053797, A053806, A061398, A072284, A112925, A112926, A120992, A251092, A373198, A376342.

Programs

  • Mathematica
    q=Differences[Select[Range[1000],SquareFreeQ],2];
Select[Range[Length[q]],!MemberQ[Take[q,#-1],q[[#]]]&]

Extensions

a(14)-a(19) from Chai Wah Wu, Oct 07 2024

A376588 Inflection and undulation points in the sequence of non-perfect-powers (A007916).

Original entry on oeis.org

3, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 19, 21, 22, 25, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84
Offset: 1

Views

Author

Gus Wiseman, Oct 03 2024

Keywords

Comments

These are points at which the second differences (A376562) are zero.
Non-perfect-powers (A007916) are numbers without a proper integer root.

Examples

			The non-perfect powers (A007916) are:
  2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 28, ...
with first differences (A375706):
  1, 2, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, ...
with first differences (A376562):
  1, -1, 0, 2, -2, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 1, -1, 0, ...
with zeros at (A376588):
  3, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 19, 21, 22, 25, 28, 29, 30, 31, 32, 33, ...

Links

Crossrefs

The version for A000002 is empty.
For first differences we had A375706, ones A375740, complement A375714.
Positions of zeros in A376562, complement A376589.
Runs of non-perfect-powers:
- length: A375702 = A053289(n+1) - 1
- first: A375703 (same as A216765 with 2 exceptions)
- last: A375704 (same as A045542 with 8 removed)
- sum: A375705
A000961 lists prime-powers inclusive, exclusive A246655.
A007916 lists non-perfect-powers, complement A001597.
A305631 counts integer partitions into non-perfect-powers, factorizations A322452.
A333254 gives run-lengths of differences between consecutive primes.
For non-perfect-powers: A375706 (first differences), A376562 (second differences), A376589 (nonzero curvature).
For second differences: A064113 (prime), A376602 (composite), {} (perfect-power), A376591 (squarefree), A376594 (nonsquarefree), A376597 (prime-power inclusive), A376600 (non-prime-power inclusive).
Cf. A025475, A052410, A053707, A069623, A073445, A093555, A174965, A294068, A336416, A361102, A376599, A376590.

Programs

  • Mathematica
    radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Join@@Position[Differences[Select[Range[100],radQ],2],0]

A376589 Points of nonzero curvature in the sequence of non-perfect-powers (A007916).

Original entry on oeis.org

1, 2, 4, 5, 10, 11, 18, 20, 23, 24, 26, 27, 38, 39, 52, 53, 68, 69, 86, 87, 106, 107, 109, 110, 111, 112, 126, 127, 150, 151, 176, 177, 195, 196, 203, 204, 220, 221, 232, 233, 264, 265, 298, 299, 316, 317, 333, 334, 371, 372, 411, 412, 453, 454, 480, 481, 496
Offset: 1

Views

Author

Gus Wiseman, Oct 03 2024

Keywords

Comments

These are points at which the second differences (A376562) are nonzero.
Non-perfect-powers (A007916) are numbers without a proper integer root.

Examples

			The non-perfect powers (A007916) are:
  2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 28, ...
with first differences (A375706):
  1, 2, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, ...
with first differences (A376562):
  1, -1, 0, 2, -2, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 0, 1, -1, 0, ...
with nonzeros at (A376589):
  1, 2, 4, 5, 10, 11, 18, 20, 23, 24, 26, 27, 38, 39, 52, 53, 68, 69, 86, 87, ...

Links

Crossrefs

For first differences we had A375706, ones A375740, complement A375714.
These are the positions of nonzeros in A376562, complement A376588.
Runs of non-perfect-powers:
- length: A375702 = A053289(n+1) - 1
- first: A375703 (same as A216765 with 2 exceptions)
- last: A375704 (same as A045542 with 8 removed)
- sum: A375705
A000961 lists prime-powers inclusive, exclusive A246655.
A007916 lists non-perfect-powers, complement A001597.
A305631 counts integer partitions into non-perfect-powers, factorizations A322452.
For non-perfect-powers: A375706 (first differences), A376562 (second differences), A376588 (inflection and undulation points).
For second differences: A064113 (prime), A376602 (composite), A376591 (squarefree), A376594 (nonsquarefree), A376597 (prime-power), A376600 (non-prime-power).
Cf. A025475, A052410, A053707, A069623, A073445, A093555, A174965, A182853, A294068, A333254, A336416, A376599.

Programs

  • Mathematica
    radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Join@@Position[Sign[Differences[Select[Range[1000],radQ],2]],1|-1]
Previous Showing 11-16 of 16 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.