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

A244984 Permutation of natural numbers: a(n) = A243283(A122111((2*n)-1)).

Original entry on oeis.org

1, 2, 3, 5, 4, 9, 14, 6, 23, 37, 10, 58, 8, 7, 90, 143, 15, 13, 225, 24, 355, 563, 12, 894, 17, 38, 1426, 20, 60, 2277, 3643, 19, 31, 5839, 96, 9398, 15155, 16, 27, 24518, 11, 39758, 50, 153, 64607, 42, 242, 80, 105250, 30, 171874, 281237, 26
Offset: 1

Views

Author

Antti Karttunen, Jul 21 2014

Keywords

Crossrefs

Programs

Formula

a(n) = A243283(A122111((2*n)-1)).
a(n) = A243283(A105560((2*n)-1) * A243505(n)).
For all n >= 1, a(A006254(n)) = A244986(n+1).

A243285 Number of integers 1 <= k <= n which are not divisible by the square of their largest noncomposite divisor.

Original entry on oeis.org

0, 1, 2, 2, 3, 4, 5, 5, 5, 6, 7, 8, 9, 10, 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, 18, 19, 19, 20, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 38, 38, 39, 40, 41, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 50, 51, 52, 53, 54, 55, 56, 57
Offset: 1

Views

Author

Antti Karttunen, Jun 02 2014

Keywords

Comments

a(n) tells how many natural numbers <= n there are which are not divisible by the square of their largest noncomposite divisor.
The largest noncomposite divisor of 1 is 1 itself, and 1 is divisible by 1^2, thus 1 is not included in the count, and a(1)=0.
The "largest noncomposite divisor" for any integer > 1 means the same thing as the largest prime divisor, and thus we are counting the terms of A102750 (Numbers n such that square of largest prime dividing n does not divide n).
Thus this is the partial sums of the characteric function for A102750.

Examples

			For n = 9, there are numbers 2, 3, 5, 6 and 7 which are not divisible by the square of their largest prime factor, while 1 is excluded (no prime factors) and 4 and 8 are divisible both by 2^2 and 9 is divisible by 3^2. Thus a(9) = 5.
		

Crossrefs

Programs

  • Mathematica
    ndsQ[n_]:=Mod[n,Max[Select[Divisors[n],!CompositeQ[#]&]]^2]!=0; Accumulate[Table[If[ ndsQ[n],1,0],{n,80}]] (* Harvey P. Dale, Oct 14 2023 *)
  • Python
    from sympy import primefactors
    def a243285(n): return 0 if n==1 else sum([1 for k in range(2, n + 1) if k%(primefactors(k)[-1]**2)!=0]) # Indranil Ghosh, Jun 15 2017
  • Scheme
    (define (A243285 n) (- n (A243283 n)))
    

Formula

a(n) = n - A243283(n).
For all n, a(A102750(n)) = n, thus this sequence works also as an inverse function for the injection A102750.

A243282 Partial sums of the characteristic function for A070003.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 15, 15, 15, 15, 15, 15, 16
Offset: 1

Views

Author

Antti Karttunen, Jun 02 2014

Keywords

Comments

a(n) tells how many natural numbers <= n there are which are divisible by the square of their largest prime divisor. (This definition excludes 1 as it has no prime divisors.)
For all n, a(A070003(n)) = n, thus this sequence works also as an inverse function for the injection A070003.

Examples

			A070003(402) = 10000, thus a(10000) = 402.
		

Crossrefs

One less than A243283.

Programs

  • Mathematica
    Accumulate[Join[{0},Table[If[Divisible[n,Last[Select[Divisors[n],PrimeQ]]^2],1,0],{n,2,90}]]] (* Harvey P. Dale, Sep 05 2018 *)

Formula

a(n) = A243283(n)-1.

A243284 a(n) = the number of distinct ways of writing such products m = k^2 * j, 0 < j <= k, (j and k natural numbers) that m is in range [1,n]; Partial sums of A102354.

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 17
Offset: 1

Views

Author

Antti Karttunen, Jun 02 2014

Keywords

Comments

a(n) = the number of distinct ways of writing such products m = k^2 * j, 0 < j <= k, (j and k natural numbers) that m is in range [1,n].
Different ways to write product for the same m are counted separately, e.g. for 64, both 8^2 * 1 and 4^2 * 4 are counted, so a(64) = a(63)+2 = 13+2 = 15.
Differs from A243283 for the first time at n=48, where a(48)=11, while A243283(48)=10. This is because 48 = 2*2*2*2*3 is the first integer which can be represented in the form k^2 * j, 0 < j <= k (namely as 48 = 4^2 * 3), even though it is not a member of A070003.

Crossrefs

Partial sums of A102354.
Showing 1-4 of 4 results.