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 51-52 of 52 results.

A074908 Number of integers with an odd number of distinct primes (for which mu(n)=-1) between two consecutive primes prime(n) and prime(n+1).

Original entry on oeis.org

2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 3, 3, 2, 3, 2, 2, 2, 2, 3, 3, 2, 3, 3, 3, 2, 3, 2, 2, 3, 2, 3, 3, 3, 2, 5, 2, 3, 2, 2, 3, 2, 2, 4, 3, 2, 3, 3, 3, 3, 2, 3, 2, 3, 5, 2, 3, 2, 2, 4, 2, 3, 2, 2, 4, 3, 3, 3, 2, 3, 2, 3, 4, 4, 2, 5, 2, 5, 3, 2, 3, 2, 2, 3, 4, 3, 2, 4, 2, 3, 3, 2, 4, 2, 3, 3, 2, 2, 3
Offset: 1

Views

Author

Jani Melik, Sep 30 2002

Keywords

Examples

			Between 7919 and 7927 the 5 numbers which have an odd number of distinct primes are as follows: {7919,7922,7923,7926,7927}, so a(1000)=5.
		

Crossrefs

Programs

  • Maple
    readlib(issqr): lstmp := proc(n) local t1,i; t1 := 0; for i from ithprime(n) to ithprime(n+1) do if (issqrfree(i) = 'true' and mobius(i)=-1) then t1 := t1+1; fi; od; t1; end: lstmp(200);

Extensions

Offset corrected by Sean A. Irvine, Feb 01 2025

A380413 Terms appearing twice in A378086 (number of nonsquarefree numbers < prime(n)).

Original entry on oeis.org

0, 1, 11, 14, 39, 53, 109, 179, 222, 240, 251, 319, 337, 481, 505, 508, 578, 664, 674, 738, 818, 835, 877, 905, 933, 1041, 1069, 1098, 1325, 1352, 1392, 1535, 1539, 1567, 1652, 1663, 1732, 1817, 1849, 1960, 2134, 2148, 2158, 2220, 2387, 2428, 2457, 2622, 2625
Offset: 1

Views

Author

Gus Wiseman, Feb 06 2025

Keywords

Crossrefs

A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, differences A076259.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061399 counts nonsquarefree integers between primes, see A068361, A061398, A068360, A377783, A378086.
A070321 gives the greatest squarefree number up to n.
A071403 counts squarefree numbers < prime(n), see A373198, A337030.
A112925 gives the greatest squarefree number between primes, least A112926.
Cf. A057627, A065890, A378032 (differences A378034), A378033 (differences A378036).

Programs

  • Mathematica
    y=Table[Length[Select[Range[Prime[n]],!SquareFreeQ[#]&]],{n,100}];
    Select[Most[Union[y]],Count[y,#]==2&]

Formula

a(n) = A378086(A068361(n)) = A378086(A068361(n)+1).
Previous Showing 51-52 of 52 results.