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.

A113544 Numbers simultaneously pentagon-free, squarefree and triangle-free.

Original entry on oeis.org

1, 2, 7, 11, 13, 14, 17, 19, 23, 26, 29, 31, 34, 37, 38, 41, 43, 46, 47, 53, 58, 59, 61, 62, 67, 71, 73, 74, 77, 79, 82, 83, 86, 89, 94, 97, 101, 103, 106, 107, 109, 113, 118, 119, 122, 127, 131, 133, 134, 137, 139, 142, 143, 146, 149, 151, 157, 158, 161, 163
Offset: 1

Views

Author

Jonathan Vos Post, Jan 13 2006

Keywords

References

  • Bellman, R. and Shapiro, H. N. "The Distribution of Squarefree Integers in Small Intervals." Duke Math. J. 21, 629-637, 1954.
  • Borwein, J. and Bailey, D. Mathematics by Experiment: Plausible Reasoning in the 21st Century. Natick, MA: A. K. Peters, 2003.
  • Hardy, G. H. and Wright, E. M. "The Number of Squarefree Numbers." Section 18.6 in An Introduction to the Theory of Numbers, 5th ed. Oxford, England: Clarendon Press, pp. 269-270, 1979.

Links

Crossrefs

Cf. A000217, A005117, A113502, A013929, A046098, A059956, A065474, A071172, A087618, A088454, A112886, A113508.

Programs

  • Mathematica
    bad = Rest@ Union[# (# + 1)/2 &@ Range[19], Range[14]^2, # (3 # - 1)/2 &@ Range[11]]; Select[Range[200], {} == Intersection[bad, Divisors[#]] &] (* Giovanni Resta, Jun 13 2016 *)
  • PARI
    list(lim)=my(v=List()); forsquarefree(n=1,lim\1, fordiv(n,d, if((ispolygonal(d,3) || ispolygonal(d,5)) && d>1, next(2))); listput(v,n[1])); Vec(v); \\ Charles R Greathouse IV, Dec 24 2018

Formula

a(n) has no factor >1 of form a*(a+1)/2 nor b^2 nor c*(3*c-1)/2. A005117 INTERSECTION A112886 INTERSECTION A113508.

Extensions

Corrected and extended by Giovanni Resta, Jun 13 2016

A113543 Numbers both squarefree and triangle-free.

Original entry on oeis.org

1, 2, 5, 7, 11, 13, 14, 17, 19, 22, 23, 26, 29, 31, 34, 35, 37, 38, 41, 43, 46, 47, 53, 58, 59, 61, 62, 65, 67, 71, 73, 74, 77, 79, 82, 83, 85, 86, 89, 94, 95, 97, 101, 103, 106, 107, 109, 113, 115, 118, 119, 122, 127, 131, 133, 134, 137, 139, 142, 143, 145
Offset: 1

Views

Author

Jonathan Vos Post, Jan 13 2006

Keywords

Comments

The cardinality (count, enumeration) of these through n equals n - card{squarefree numbers <= n} - card{trianglefree numbers <= n} + card{numbers <= n which are both square and triangular} = n - card{numbers <= n in A005117} - card{numbers <=n in A112886} + card{numbers <= n in A001110}. "There is no known polynomial time algorithm for recognizing squarefree integers or for computing the squarefree part of an integer. In fact, this problem may be no easier than the general problem of integer factorization (obviously, if an integer can be factored completely, is squarefree iff it contains no duplicated factors). This problem is an important unsolved problem in number theory" [Weisstein]. Conjecture: there is no polynomial time algorithm for recognizing numbers which are both squarefree and triangle-free.

References

  • Bellman, R. and Shapiro, H. N. "The Distribution of Squarefree Integers in Small Intervals." Duke Math. J. 21, 629-637, 1954.
  • Borwein, J. and Bailey, D. Mathematics by Experiment: Plausible Reasoning in the 21st Century. Natick, MA: A. K. Peters, 2003.
  • Hardy, G. H. and Wright, E. M. "The Number of Squarefree Numbers." Section 18.6 in An Introduction to the Theory of Numbers, 5th ed. Oxford, England: Clarendon Press, pp. 269-270, 1979.

Links

Crossrefs

Cf. A000217, A005117, A113502, A013929, A046098, A059956, A065474, A071172, A087618, A088454, A112886.

Programs

  • Mathematica
    bad = Rest@Union[# (# + 1)/2 &@ Range[19], Range[14]^2]; Select[ Range[200], {} == Intersection[bad, Divisors[#]] &] (* Giovanni Resta, Jun 13 2016 *)

Formula

a(n) has no factor >1 of form a*(a+1)/2 nor b^2. A005117 INTERSECTION A112886.

Extensions

Corrected and extended by Giovanni Resta, Jun 13 2016

A113545 Numbers both pentagon-free and squarefree.

Original entry on oeis.org

1, 2, 3, 6, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 53, 57, 58, 59, 61, 62, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 86, 87, 89, 91, 93, 94, 97, 101, 103, 106, 107, 109, 111, 113, 114, 118, 119, 122, 123, 127, 129
Offset: 1

Views

Author

Jonathan Vos Post, Jan 13 2006

Keywords

References

  • Bellman, R. and Shapiro, H. N. "The Distribution of Squarefree Integers in Small Intervals." Duke Math. J. 21, 629-637, 1954.
  • Borwein, J. and Bailey, D. Mathematics by Experiment: Plausible Reasoning in the 21st Century. Natick, MA: A. K. Peters, 2003.
  • Hardy, G. H. and Wright, E. M., Section 18.6 in An Introduction to the Theory of Numbers, 5th ed. Oxford, England: Clarendon Press, pp. 269-270, 1979.

Links

Crossrefs

Cf. A000217, A005117, A113502, A013929, A046098, A059956, A065474, A071172, A087618, A088454, A112886, A113508.

Programs

  • Mathematica
    bad = Rest@Union[Range[14]^2, # (3 # - 1)/2 &@ Range[11]]; Select[ Range[200], {} == Intersection[ bad, Divisors[#]] &] (* Giovanni Resta, Jun 13 2016 *)

Formula

a(n) has no factor >1 of form b^2 nor c*(3*c-1)/2. A005117 INTERSECTION A113508.

Extensions

Data corrected by Giovanni Resta, Jun 13 2016

A088467 Decimal expansion of 6/(Pi^2 A086724).

Original entry on oeis.org

7, 7, 8, 0, 9, 4, 4, 8, 9, 1, 7, 5, 1, 7, 9, 4, 3, 2, 8, 9, 0, 1, 3, 4, 6, 2, 5, 9, 4, 9, 1, 8, 1, 7, 1, 2, 5, 2, 4, 7, 6, 3, 2, 2, 8, 9, 7, 9, 7, 6, 6, 6, 7, 8, 9, 1, 4, 3, 7, 3, 2, 4, 0, 8, 5, 8, 5, 7, 0, 1, 1, 7, 4, 8, 0, 7, 7, 6, 9, 9, 5, 4, 6, 0, 1, 7, 5, 9, 7, 4, 8, 3, 8, 3, 2, 8, 4, 9, 2, 5, 3, 7
Offset: 0

Views

Author

Eric W. Weisstein, Oct 02 2003

Keywords

Comments

The probability that a randomly chosen Eisenstein integer is squarefree, and the probability that two randomly chosen Eisenstein integers are coprime. - Amiram Eldar, Jun 13 2020

Examples

			0.778094489...

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, p. 601.

Links

Crossrefs

Cf. A088454, A086724.

Programs

  • Mathematica
    A086724 = H = 1+(PolyGamma[1, 4/3]-PolyGamma[1, 2/3])/9; RealDigits[6/(Pi^2*H), 10, 102] // First (* Jean-François Alcover, Jun 03 2014 *)

A113626 Numbers simultaneously heptagon-free, pentagon-free, squarefree and triangle-free.

Original entry on oeis.org

1, 2, 11, 13, 17, 19, 23, 26, 29, 31, 37, 38, 41, 43, 46, 47, 53, 58, 59, 61, 62, 67, 71, 73, 74, 79, 82, 83, 86, 89, 94, 97, 101, 103, 106, 107, 109, 113, 118, 122, 127, 131, 134, 137, 139, 142, 143, 146, 149, 151, 157, 158, 163, 166, 167, 173, 178, 179, 181, 187
Offset: 1

Views

Author

Jonathan Vos Post, Jan 14 2006

Keywords

Comments

This sequence is the 5th step in a polygonal-factor sieve, where all integers with k-gonal factors have been eliminated from an initial set of the natural numbers, for k = 3, 4, 5, .... There is no need to specifically sieve out hexagonal numbers, as every hexagonal number is a triangular number and thus is already sieved. Every integer n is sieved out no later than step n-3, as n-gonal number(2) = n (e.g. 7 is eliminated when we sieve out all numbers with heptagonal factors, as 7 = Hep(2); 11 is eliminated when we sieve out all 11-gonal number multiples). After an infinite number of steps, the sequence collapses to {1,2}. If, instead, at each step we eliminate all multiples of n-gonal numbers except {1, n} then the sequence converges on {1,4} UNION {primes}.

Links

Crossrefs

Cf. A000217, A000566, A005117, A113502, A013929, A046098, A059956, A065474, A071172, A087618, A088454, A112886, A113508.

Programs

  • Maple
    isA000217 := proc(n) local discr ; discr := 1+8*n ; if issqr(discr) then if ( sqrt(discr)-1 ) mod 2 = 0 then true; else false ; fi ; else false ; fi ; end: isA000326 := proc(n) local discr ; discr := 1+24*n ; if issqr(discr) then if ( sqrt(discr)+1 ) mod 6 = 0 then true; else false ; fi ; else false ; fi ; end: isA000566 := proc(n) local discr ; discr := 9+40*n ; if issqr(discr) then if ( sqrt(discr)+3 ) mod 10 = 0 then true; else false ; fi ; else false ; fi ; end: isA000290 := proc(n) issqr(n) ; end: isA113626 := proc(n) local d ; for d in numtheory[divisors](n) do if d > 1 then if isA000217(d) or isA000290(d) or isA000326(d) or isA000566(d) then RETURN(false) ; fi ; fi ; od: RETURN(true) ; end: for n from 1 to 500 do if isA113626(n) then printf("%d,",n) ; fi ; od: # R. J. Mathar, Apr 19 2008
  • Mathematica
    The Mathematica function SquareFreeQ[n] in the Mathematica add-on package NumberTheory`NumberTheoryFunctions` (which can be loaded with the command <

Formula

a(n) has no factor >1 of form b*(b+1)/2, c^2, d*(3*d-1)/2, nor e*(5*e-3)/2.
A113544 INTERSECT A113619. - R. J. Mathar, Jul 24 2009

Extensions

More terms from R. J. Mathar, Apr 19 2008
Extended by R. J. Mathar, Jul 24 2009
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.