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-60 of 95 results. Next

A097248 a(n) is the eventual stable point reached when iterating k -> A097246(k), starting from k = n.

Original entry on oeis.org

1, 2, 3, 3, 5, 6, 7, 6, 5, 10, 11, 5, 13, 14, 15, 5, 17, 10, 19, 15, 21, 22, 23, 10, 7, 26, 15, 21, 29, 30, 31, 10, 33, 34, 35, 15, 37, 38, 39, 30, 41, 42, 43, 33, 7, 46, 47, 15, 11, 14, 51, 39, 53, 30, 55, 42, 57, 58, 59, 7, 61, 62, 35, 15, 65, 66, 67, 51, 69, 70, 71, 30, 73, 74, 21
Offset: 1

Views

Author

Reinhard Zumkeller, Aug 03 2004

Keywords

Comments

a(n) = r(n,m) with m such that r(n,m)=r(n,m+1), where r(n,k) = A097246(r(n,k-1)), r(n,0)=n. (The original definition.)
A097248(n) = r(n,a(n)).
From Antti Karttunen, Nov 15 2016: (Start)
The above remark could be interpreted to mean that A097249(n) <= a(n).
All terms are squarefree, and the squarefree numbers are the fixed points.
These are also fixed points eventually reached when iterating A277886.
(End)

Crossrefs

Range of values is A005117.
A003961, A225546, A277885, A277886, A331590 are used to express relationship between terms of this sequence.
The formula section also details how the sequence maps the terms of A007913, A260443, A329050, A329332.
See comments/formulas in A283475, A283478, A331751 giving their relationship to this sequence.

Programs

  • Mathematica
    Table[FixedPoint[Times @@ Map[#1^#2 & @@ # &, Partition[#, 2, 2] &@ Flatten[FactorInteger[#] /. {p_, e_} /; e >= 2 :> {If[OddQ@ e, {p, 1}, {1, 1}], {NextPrime@ p, Floor[e/2]}}]] &, n], {n, 75}] (* Michael De Vlieger, Mar 18 2017 *)
  • PARI
    A097246(n) = { my(f=factor(n)); prod(i=1, #f~, (nextprime(f[i,1]+1)^(f[i,2]\2))*((f[i,1])^(f[i,2]%2))); };
    A097248(n) = { my(k=A097246(n)); while(k<>n, n = k; k = A097246(k)); k; };
    \\ Antti Karttunen, Mar 18 2017
    
  • Python
    from sympy import factorint, nextprime
    from operator import mul
    def a097246(n):
        f=factorint(n)
        return 1 if n==1 else reduce(mul, [(nextprime(i)**int(f[i]/2))*(i**(f[i]%2)) for i in f])
    def a(n):
        k=a097246(n)
        while k!=n:
            n=k
            k=a097246(k)
        return k # Indranil Ghosh, May 15 2017
  • Scheme
    ;; with memoization-macro definec
    ;; Two implementations:
    (definec (A097248 n) (if (not (zero? (A008683 n))) n (A097248 (A097246 n))))
    (definec (A097248 n) (if (zero? (A277885 n)) n (A097248 (A277886 n))))
    ;; Antti Karttunen, Nov 15 2016
    

Formula

a(A005117(n)) = A005117(n).
From Antti Karttunen, Nov 15 2016: (Start)
If A008683(n) <> 0 [when n is squarefree], a(n) = n, otherwise a(n) = a(A097246(n)).
If A277885(n) = 0, a(n) = n, otherwise a(n) = a(A277886(n)).
A007913(a(n)) = a(n).
a(A007913(n)) = A007913(n).
A048675(a(n)) = A048675(n).
a(A260443(n)) = A019565(n).
(End)
From Peter Munn, Feb 06 2020: (Start)
a(1) = 1; a(p) = p, for prime p; a(m*k) = A331590(a(m), a(k)).
a(A331590(m,k)) = A331590(a(m), a(k)).
a(n^2) = a(A003961(n)) = A003961(a(n)).
a(A225546(n)) = a(n).
a(n) = A225546(2^A048675(n)) = A019565(A048675(n)).
a(A329050(n,k)) = prime(n+k-1) = A000040(n+k-1).
a(A329332(n,k)) = A019565(n * k).
Equivalently, a(A019565(n)^k) = A019565(n * k).
(End)
From Antti Karttunen, Feb 22-25 & Mar 01 2020: (Start)
a(A019565(x)*A019565(y)) = A019565(x+y).
a(A332461(n)) = A332462(n).
a(A332824(n)) = A019565(n).
a(A277905(n,k)) = A277905(n,1) = A019565(n), for all n >= 1, and 1 <= k <= A018819(n).
(End)

Extensions

Name changed and the original definition moved to the Comments section by Antti Karttunen, Nov 15 2016

A113849 Numbers whose prime factors are raised to the fourth power.

Original entry on oeis.org

16, 81, 625, 1296, 2401, 10000, 14641, 28561, 38416, 50625, 83521, 130321, 194481, 234256, 279841, 456976, 707281, 810000, 923521, 1185921, 1336336, 1500625, 1874161, 2085136, 2313441, 2825761, 3111696, 3418801, 4477456, 4879681, 6765201, 7890481
Offset: 1

Views

Author

Cino Hilliard, Jan 25 2006

Keywords

Comments

This is essentially A005117 (the squarefree numbers) raised to the fourth power. - T. D. Noe, Mar 13 2013
All positive integers have a unique factorization into powers of squarefree numbers with distinct exponents that are powers of two. So every positive number is a product of at most one squarefree number (A005117), at most one square of a squarefree number (A062503), at most one 4th power of a squarefree number (term of this sequence), at most one 8th power of a squarefree number, and so on. - Peter Munn, Mar 12 2020

Examples

			1296 = 16*81 = 2^4*3^4 so the prime factors of 1296, 2 and 3, are raised to the fourth power.
		

Crossrefs

Proper subset of A000583.
Other powers of squarefree numbers: A005117(1), A062503(2), A062838(3), A113850(5), A113851(6), A113852(7), A072774(all).

Programs

  • Mathematica
    Select[ Range@50^4, Union[Last /@ FactorInteger@# ] == {4} &] (* Robert G. Wilson v, Jan 26 2006 *)
    nn = 50; t = Select[Range[2, nn], Union[Transpose[FactorInteger[#]][[2]]] == {1} &]; t^4 (* T. D. Noe, Mar 13 2013 *)
    Rest[Select[Range[100], SquareFreeQ]^4] (* Vaclav Kotesovec, May 22 2020 *)
  • PARI
    allpwrfact(n,p) = { local(x,j,ln,y,flag); for(x=4,n, y=Vec(factor(x)); ln = length(y[1]); flag=0; for(j=1,ln, if(y[2][j]==p,flag++); ); if(flag==ln,print1(x",")); ) } \\ All prime factors are raised to the power p
    
  • Python
    from math import isqrt
    from sympy import mobius
    def A113849(n):
        def f(x): return n+x-sum(mobius(k)*(x//k**2) for k in range(1, isqrt(x)+1))
        kmin, kmax = 1,2
        while f(kmax) >= kmax:
            kmax <<= 1
        while True:
            kmid = kmax+kmin>>1
            if f(kmid) < kmid:
                kmax = kmid
            else:
                kmin = kmid
            if kmax-kmin <= 1:
                break
        return kmax**4 # Chai Wah Wu, Aug 19 2024

Formula

From Peter Munn, Oct 31 2019: (Start)
a(n) = A005117(n+1)^4.
{a(n)} = {A225546(A000351(n)) : n >= 0} \ {1}, where {a(n)} denotes the set of integers in the sequence.
(End)
Sum_{k>=1} 1/a(k) = zeta(4)/zeta(8) - 1 = 105/Pi^4 - 1. - Amiram Eldar, May 22 2020

Extensions

More terms from Robert G. Wilson v, Jan 26 2006

A329050 Square array A(n,k) = prime(n+1)^(2^k), read by descending antidiagonals (0,0), (0,1), (1,0), (0,2), (1,1), (2,0), ...; Fermi-Dirac primes (A050376) in matrix form, sorted into rows by their prime divisor.

Original entry on oeis.org

2, 4, 3, 16, 9, 5, 256, 81, 25, 7, 65536, 6561, 625, 49, 11, 4294967296, 43046721, 390625, 2401, 121, 13, 18446744073709551616, 1853020188851841, 152587890625, 5764801, 14641, 169, 17, 340282366920938463463374607431768211456, 3433683820292512484657849089281, 23283064365386962890625, 33232930569601, 214358881, 28561, 289, 19
Offset: 0

Views

Author

Antti Karttunen and Peter Munn, Nov 02 2019

Keywords

Comments

This sequence is a permutation of A050376, so every positive integer is the product of a unique subset, S_factors, of its terms. If we restrict S_factors to be chosen from a subset, S_0, consisting of numbers from specified rows and/or columns of this array, there are notable sequences among those that may be generated. See the examples. Other notable sequences can be generated if we restrict the intersection of S_factors with specific rows/columns to have even cardinality. In any of the foregoing cases, the numbers in the resulting sequence form a group under the binary operation A059897(.,.).
Shares with array A246278 the property that columns grow downward by iterating A003961, and indeed, this array can be obtained from A246278 by selecting its columns 1, 2, 8, 128, ..., 2^((2^k)-1), for k >= 0.
A(n,k) is the image of the lattice point with coordinates X=n and Y=k under the inverse of the bijection f defined in the first comment of A306697. This geometric relationship can be used to construct an isomorphism from the polynomial ring GF(2)[x,y] to a ring over the positive integers, using methods similar to those for constructing A297845 and A306697. See A329329, the ring's multiplicative operator, for details.

Examples

			The top left 5 X 5 corner of the array:
  n\k |   0     1       2           3                   4
  ----+-------------------------------------------------------
   0  |   2,    4,     16,        256,              65536, ...
   1  |   3,    9,     81,       6561,           43046721, ...
   2  |   5,   25,    625,     390625,       152587890625, ...
   3  |   7,   49,   2401,    5764801,     33232930569601, ...
   4  |  11,  121,  14641,  214358881,  45949729863572161, ...
Column 0 continues as a list of primes, column 1 as a list of their squares, column 2 as a list of their 4th powers, and so on.
Every nonnegative power of 2 (A000079) is a product of a unique subset of numbers from row 0; every squarefree number (A005117) is a product of a unique subset of numbers from column 0. Likewise other rows and columns generate the sets of numbers from sequences:
Row 1:                 A000244 Powers of 3.
Column 1:              A062503 Squares of squarefree numbers.
Row 2:                 A000351 Powers of 5.
Column 2:              A113849 4th powers of squarefree numbers.
Union of rows 0 and 1:     A003586 3-smooth numbers.
Union of columns 0 and 1:  A046100 Biquadratefree numbers.
Union of row 0 / column 0: A122132 Oddly squarefree numbers.
Row 0 excluding column 0:  A000302 Powers of 4.
Column 0 excluding row 0:  A056911 Squarefree odd numbers.
All rows except 0:         A005408 Odd numbers.
All columns except 0:      A000290\{0} Positive squares.
All rows except 1:         A001651 Numbers not divisible by 3.
All columns except 1:      A252895 (have odd number of square divisors).
If, instead of restrictions on choosing individual factors of the product, we restrict the product to be of an even number of terms from each row of the array, we get A262675. The equivalent restriction applied to columns gives us A268390; applied only to column 0, we get A028260 (product of an even number of primes).
		

Crossrefs

Transpose: A329049.
Permutation of A050376.
Rows 1-4: A001146, A011764, A176594, A165425 (after the two initial terms).
Antidiagonal products: A191555.
Subtable of A182944, A242378, A246278, A329332.
A000290, A003961, A225546 are used to express relationship between terms of this sequence.
Related binary operations: A059897, A306697, A329329.
See also the table in the example section.

Programs

  • Mathematica
    Table[Prime[#]^(2^k) &[m - k + 1], {m, 0, 7}, {k, m, 0, -1}] // Flatten (* Michael De Vlieger, Dec 28 2019 *)
  • PARI
    up_to = 105;
    A329050sq(n,k) = (prime(1+n)^(2^k));
    A329050list(up_to) = { my(v = vector(up_to), i=0); for(a=0, oo, for(col=0, a, i++; if(i > up_to, return(v)); v[i] = A329050sq(col, a-col))); (v); };
    v329050 = A329050list(up_to);
    A329050(n) = v329050[1+n];
    for(n=0,up_to-1,print1(A329050(n),", ")); \\ Antti Karttunen, Nov 06 2019

Formula

A(0,k) = 2^(2^k), and for n > 0, A(n,k) = A003961(A(n-1,k)).
A(n,k) = A182944(n+1,2^k).
A(n,k) = A329332(2^n,2^k).
A(k,n) = A225546(A(n,k)).
A(n,k+1) = A000290(A(n,k)) = A(n,k)^2.

Extensions

Example annotated for clarity by Peter Munn, Feb 12 2020

A329329 Multiplicative operator of a ring over the positive integers that has A059897(.,.) as additive operator and is isomorphic to GF(2)[x,y] with A329050(i,j) the image of x^i * y^j.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 5, 4, 1, 1, 5, 9, 9, 5, 1, 1, 6, 7, 16, 7, 6, 1, 1, 7, 15, 25, 25, 15, 7, 1, 1, 8, 11, 36, 11, 36, 11, 8, 1, 1, 9, 27, 49, 35, 35, 49, 27, 9, 1, 1, 10, 25, 64, 13, 10, 13, 64, 25, 10, 1, 1, 11, 21, 81, 125, 77, 77, 125, 81
Offset: 1

Views

Author

Peter Munn, Nov 11 2019

Keywords

Comments

Square array A(n,k), n >= 1, k >= 1, read by descending antidiagonals.
The group defined by the binary operation A059897(.,.) over the positive integers is commutative with all elements self-inverse, and isomorphic to the additive group of GF(2) polynomial rings such as GF(2)[x,y]. There is a unique isomorphism extending each bijective mapping between respective minimal generating sets. The lexicographically earliest minimal generating set for the A059897 group is A050376, often called the Fermi-Dirac primes. This set has a natural arrangement in a square array, given by A329050(i,j) = prime(i+1)^(2^j), i >= 0, j >= 0. The most meaningful generating set for the additive group of GF(2)[x,y] is {x^i * y^j: i >= 0, j >= 0}, which similarly forms a square array. All this makes A329050(i,j) especially appropriate to be the image (under an isomorphism) of the GF(2) polynomial x^i * y^j.
Using g to denote the intended isomorphism, we specify g(x^i * y^j) = A329050(i,j). This maps minimal generating sets of the additive groups, so the definition of g is completed by specifying g(a+b) = A059897(g(a), g(b)). We then calculate the image under g of polynomial multiplication in GF(2)[x,y], giving us this sequence as the matching multiplicative operator for an isomorphic ring over the positive integers. Using f to denote the inverse of g, A[n,k] = g(f(n) * f(k)).
See the formula section for an alternative definition based on the A329050 array, independent of GF(2)[x,y].
Closely related to A306697 and A297845. If A059897 is replaced in the alternative definition by A059896 (and the definition is supplemented by the derived identity for the absorbing element, shown in the formula section), we get A306697; if A059897 is similarly replaced by A003991 (integer multiplication), we get A297845. This sequence and A306697, considered as multiplicative operators, are carryless arithmetic equivalents of A297845. A306697 uses a method analogous to binary-OR when there would be a multiplicative carry, while this sequence uses a method analogous to binary exclusive-OR. In consequence A(n,k) <> A297845(n,k) exactly when A306697(n,k) <> A297845(n,k). This relationship is not symmetric between the 3 sequences: there are n and k such that A(n,k) = A306697(n,k) <> A297845(n,k). For example A(54,72) = A306697(54,72) = 273375000 <> A297845(54,72) = 22143375000.

Examples

			Square array A(n, k) begins:
  n\k|  1   2   3    4    5    6    7     8     9    10    11    12
  ---+-------------------------------------------------------------
    1|  1   1   1    1    1    1    1     1     1     1     1     1
    2|  1   2   3    4    5    6    7     8     9    10    11    12
    3|  1   3   5    9    7   15   11    27    25    21    13    45
    4|  1   4   9   16   25   36   49    64    81   100   121   144
    5|  1   5   7   25   11   35   13   125    49    55    17   175
    6|  1   6  15   36   35   10   77   216   225   210   143   540
    7|  1   7  11   49   13   77   17   343   121    91    19   539
    8|  1   8  27   64  125  216  343    32   729  1000  1331  1728
    9|  1   9  25   81   49  225  121   729   625   441   169  2025
   10|  1  10  21  100   55  210   91  1000   441    22   187  2100
   11|  1  11  13  121   17  143   19  1331   169   187    23  1573
   12|  1  12  45  144  175  540  539  1728  2025  2100  1573    80
		

Crossrefs

A059897, A225546, A329050 are used to express relationship between terms of this sequence.
Related binary operations: A297845/A003991, A306697/A059896.

Programs

  • PARI
    \\ See Links section.

Formula

Alternative definition: (Start)
A(A329050(i_1, j_1), A329050(i_2, j_2)) = A329050(i_1+i_2, j_1+j_2).
A(A059897(n,k), m) = A059897(A(n,m), A(k,m)).
A(m, A059897(n,k)) = A059897(A(m,n), A(m,k)).
(End)
Derived identities: (Start)
A(n,1) = A(1,n) = 1 (1 is an absorbing element).
A(n,2) = A(2,n) = n.
A(n,k) = A(k,n).
A(n, A(m,k)) = A(A(n,m), k).
(End)
A(A019565(i), 2^j) = A019565(i)^j = A329332(i,j).
A(A225546(i), A225546(j)) = A225546(A(i,j)).
A(n,k) = A306697(n,k) = A297845(n,k), for n = A050376(i), k = A050376(j).
A(n,k) <= A306697(n,k) <= A297845(n,k).
A(n,k) < A297845(n,k) if and only if A306697(n,k) < A297845(n,k).

A268375 Numbers k for which A001222(k) = A267116(k).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 25, 27, 28, 29, 31, 32, 37, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 59, 61, 63, 64, 67, 68, 71, 73, 75, 76, 79, 80, 81, 83, 89, 92, 97, 98, 99, 101, 103, 107, 109, 112, 113, 116, 117, 121, 124, 125, 127, 128, 131, 137, 139, 144, 147, 148, 149, 151, 153
Offset: 1

Views

Author

Antti Karttunen, Feb 03 2016

Keywords

Comments

Numbers k whose prime factorization k = p_1^e_1 * ... * p_m^e_m contains no pair of exponents e_i and e_j (i and j distinct) whose base-2 representations have at least one shared digit-position in which both exponents have a 1-bit.
Equivalently, numbers k such that the factors in the (unique) factorization of k into powers of squarefree numbers with distinct exponents that are powers of two, are prime powers. For example, this factorization of 90 is 10^1 * 3^2, so 90 is not included, as 10 is not prime; whereas this factorization of 320 is 5^1 * 2^2 * 2^4, so 320 is included as 5 and 2 are both prime. - Peter Munn, Jan 16 2020
A225546 maps the set of terms 1:1 onto A138302. - Peter Munn, Jan 26 2020
Equivalently, numbers k for which A064547(k) = A331591(k). - Amiram Eldar, Dec 23 2023

Examples

			12 = 2^2 * 3^1 is included in the sequence as the exponents 2 ("10" in binary) and 1 ("01" in binary) have no 1-bits in the same position, and 18 = 2^1 * 3^2 is included for the same reason.
On the other hand, 24 = 2^3 * 3^1 is NOT included in the sequence as the exponents 3 ("11" in binary) and 1 ("01" in binary) have 1-bit in the same position 0.
720 = 2^4 * 3^2 * 5^1 is included as the exponents 1, 2 and 4 ("001", "010" and "100" in binary) have no 1-bits in shared positions.
Likewise, 10! = 3628800 = 2^8 * 3^4 * 5^2 * 7^1 is included as the exponents 1, 2, 4 and 8 ("0001", "0010", "0100" and "1000" in binary) have no 1-bits in shared positions. And similarly for any term of A191555.
		

Crossrefs

Indices of zeros in A268374, also in A289618.
Cf. A091862 (characteristic function), A268376 (complement).
Cf. A000961, A054753, A191555 (subsequences).
Related to A138302 via A225546.
Cf. also A318363 (a permutation).

Programs

  • Mathematica
    {1}~Join~Select[Range@ 160, PrimeOmega@ # == BitOr @@ Map[Last, FactorInteger@ #] &] (* Michael De Vlieger, Feb 04 2016 *)

A053165 4th-power-free part of n.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 2, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 3, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 4, 65, 66, 67, 68, 69, 70, 71, 72, 73
Offset: 1

Views

Author

Henry Bottomley, Feb 29 2000

Keywords

Crossrefs

Equivalent sequences for other powers: A007913 (2), A050985 (3).
A003961, A059897 are used to express relationship between terms of this sequence.
Related to A065331 via A225546.

Programs

  • Mathematica
    f[p_, e_] := p^Mod[e, 4]; a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Sep 07 2020 *)
  • PARI
    a(n)=my(f=factor(n)); f[,2]=f[,2]%4; factorback(f) \\ Charles R Greathouse IV, Sep 02 2015
  • Python
    from operator import mul
    from functools import reduce
    from sympy import factorint
    def A053165(n):
        return 1 if n <=1 else reduce(mul,[p**(e % 4) for p,e in factorint(n).items()])
    # Chai Wah Wu, Feb 04 2015
    

Formula

a(n) = n/A008835(n).
Dirichlet g.f.: zeta(4s)*zeta(s-1)/zeta(4s-4). The Dirichlet convolution of this sequence with A008835 is A000203. - R. J. Mathar, Apr 05 2011
From Peter Munn, Jan 15 2020: (Start)
a(2) = 2; a(4) = 4; a(n^4) = 1; a(A003961(n)) = A003961(a(n)); a(A059897(n,k)) = A059897(a(n), a(k)).
a(A225546(n)) = A225546(A065331(n)).
(End)
Multiplicative with a(p^e) = p^(e mod 4). - Amiram Eldar, Sep 07 2020
Sum_{k=1..n} a(k) ~ Pi^4 * n^2 / 210. - Vaclav Kotesovec, Aug 20 2021

A268390 Products of an even number of distinct primes and the square of a number in the sequence (including 1).

Original entry on oeis.org

1, 6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 129, 133, 134, 141, 142, 143, 145, 146, 155, 158, 159, 161, 166, 177, 178, 183, 185, 187, 194, 196, 201, 202, 203, 205, 206, 209, 210
Offset: 1

Views

Author

Antti Karttunen, Feb 05 2016

Keywords

Comments

Old name: 'Positions of zeros in A268387: numbers n such that when the exponents e_1 .. e_k in their prime factorization n = p_1^e_1 * ... * p_k^e_k are bitwise-xored together, the result is zero.
From Peter Munn, Sep 14 2019 and Dec 01 2019: (Start)
When trailing zeros are removed from the terms written in base p, for any prime p, every positive integer not divisible by p appears exactly once. This is the lexicographically earliest sequence with this property.
The closure of A238748 with respect to the commutative binary operation A059897(.,.). As integers are self-inverse under A059897(.,.), the sequence thereby forms a subgroup, denoted H, of the positive integers under A059897(.,.). H is a subgroup of A000379.
(The symbol ^ can take on a meaning in relation to a group operation. However, in this comment ^ denotes the power operator for standard integer multiplication.) For any prime p, the subgroup {p^k : k >= 0} and H are each a (left and right) transversal of the other. For k >= 0 and primes p_1 and p_2, the cosets (p_1^k)H and (p_2^k)H are the same.
(End)
From Peter Munn, Dec 01 2021: (Start)
If we take the square root of the square terms we reproduce the sequence itself. The set of all products of a square term and a squarefree term is the sequence as a set.
The terms are the elements of the ideal generated by {6} in the ring defined in A329329. Similarly, the ideal generated by {8} gives A262675. 6 and 8 are images of each other under A225546(.), which is an automorphism of the ring. So this sequence and A262675, as sets, are images of each other under A225546(.). The elements of the ideal generated by {6,8} form the notable set A000379.
(End)

Examples

			1 has an empty factorization, and as XOR of an empty set is zero, 1 is included.
6 = 2^1 * 3^1 and as XOR(1,1) = 0, 6 is included.
30 = 2^1 * 3^1 * 5^1 is NOT included, as XOR(1,1,1) = 1.
360 = 2^3 * 3^2 * 5^1 is included, as the bitwise-XOR of exponents 3, 2 and 1 ("11", "10" and "01" in binary) results zero.
10, 15, 36 and 216 are in A238748. 360 = A059897(10, 36) = A059897(15, 216) and 540 = A059897(15, 36) = A059897(10, 216). So 360 and 540 are in the closure of A238748 under A059897(.,.), so in this sequence although absent from A238748. - _Peter Munn_, Oct 30 2019
		

Crossrefs

Positions of 0's in A268387, cf. A374595 (positions of 1's).
Cf. A000188, A003987, A048833 (counts prime signatures that are represented), A059897, A329329.
Subsequences: A006881 (semiprime terms), A030229 (squarefree terms), A238748 (differs first by missing a(115) = 360 and lists more subsequences).
Subsequences for prime signatures not within A238748: A163569, A190111, A190468.
Subsequence of A000379, A028260. Differs from their intersection, A374472, by omitting 64, 144, 324 etc.
Related to A262675 via A225546.
Ordered odd bisection of A334205.

Programs

  • Mathematica
    Select[Range[200], # == 1 || BitXor @@ Last /@ FactorInteger[#] == 0 &] (* Amiram Eldar, Nov 27 2020 *)

Formula

From Peter Munn, Oct 30 2019: (Start)
For k >= 0, prime p_1, prime p_2, {m : m = A059897(p_1^k, a(n)), n >= 1} = {m : m = A059897(p_2^k, a(n)), n >= 1}.
For n >= 1, k >= 0, prime p, A268387(A059897(p^k, a(n))) = k.
(End)
From Peter Munn, Nov 24 2021: (Start)
{a(n) : n >= 1} = {A000188(a(n)) : n >= 1}.
{a(n) : n >= 1} = {A225546(A262675(n)) : n >= 1}.
{A059897(a(n), A262675(m)) : n >= 1, m >= 1} = {A000379(k) : k >= 1}.
(End)

Extensions

New name from Peter Munn, Jul 15 2024

A299090 Number of "digits" in the binary representation of the multiset of prime factors of n.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 3, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 3, 3, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 2, 2, 2, 1, 1, 1, 2, 1
Offset: 1

Views

Author

Gus Wiseman, Feb 02 2018

Keywords

Comments

a(n) is also the binary weight of the largest multiplicity in the multiset of prime factors of n.
Any finite multiset m has a unique binary representation as a finite word bin(m) = s_k..s_1 such that: (1) each "digit" s_i is a finite set, (2) the leading term s_k is nonempty, and (3) m = 1*s_1 + 2*s_2 + 4*s_3 + 8*s_4 + ... + 2^(k-1)*s_k where + is multiset union, 1*S = S as a multiset, and n*S = 1*S + (n-1)*S for n > 1. The word bin(m) can be thought of as a finite 2-adic set. For example,
bin({1,1,1,1,2,2,3,3,3}) = {1}{2,3}{3},
bin({1,1,1,1,1,2,2,2,2}) = {1,2}{}{1},
bin({1,1,1,1,1,2,2,2,3}) = {1}{2}{1,2,3}.
a(n) is the least k such that columns indexed k or greater in A329050 contain no divisors of n. - Peter Munn, Feb 10 2020

Examples

			36 has prime factors {2,2,3,3} with binary representation {2,3}{} so a(36) = 2.
Binary representations of the prime multisets of each positive integer begin: {}, {2}, {3}, {2}{}, {5}, {2,3}, {7}, {2}{2}, {3}{}, {2,5}, {11}, {2}{3}, {13}, {2,7}, {3,5}, {2}{}{}.
		

Crossrefs

Programs

  • Mathematica
    Table[If[n===1,0,IntegerLength[Max@@FactorInteger[n][[All,2]],2]],{n,100}]
  • PARI
    A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
    A299090(n) = if(1==n,0,#binary(A051903(n))); \\ Antti Karttunen, Jul 29 2018
    
  • Python
    from sympy import factorint
    def A299090(n): return max(factorint(n).values(),default=0).bit_length() # Chai Wah Wu, Apr 11 2025

Formula

a(n) = A070939(A051903(n)), n>1.
If m is a set then bin(m) has only one "digit" m; so a(n) = 1 if n is squarefree.
If m is of the form n*{x} then bin(m) is obtained by listing the binary digits of n and replacing 0 -> {}, 1 -> {x}; so a(p^n) = binary weight of n.
a(n) = A061395(A225546(n)). - Peter Munn, Feb 10 2020
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 + Sum_{k>=1} (1 - 1/zeta(2^k)) = 1.47221057635756400916... . - Amiram Eldar, Jan 05 2024

Extensions

More terms from Antti Karttunen, Jul 29 2018

A306697 Square array T(n, k) read by antidiagonals, n > 0 and k > 0: T(n, k) is obtained by applying a Minkowski sum to sets related to the Fermi-Dirac factorizations of n and of k (see Comments for precise definition).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 5, 4, 1, 1, 5, 9, 9, 5, 1, 1, 6, 7, 16, 7, 6, 1, 1, 7, 15, 25, 25, 15, 7, 1, 1, 8, 11, 36, 11, 36, 11, 8, 1, 1, 9, 27, 49, 35, 35, 49, 27, 9, 1, 1, 10, 25, 64, 13, 30, 13, 64, 25, 10, 1, 1, 11, 21, 81, 125, 77, 77, 125, 81
Offset: 1

Views

Author

Rémy Sigrist, Mar 05 2019

Keywords

Comments

For any m > 0:
- let F(m) be the set of distinct Fermi-Dirac primes (A050376) with product m,
- for any i >=0 0 and j >= 0, let f(prime(i+1)^(2^i)) be the lattice point with coordinates X=i and Y=j (where prime(k) denotes the k-th prime number),
- f establishes a bijection from the Fermi-Dirac primes to the lattice points with nonnegative coordinates,
- let P(m) = { f(p) | p in F(m) },
- P establishes a bijection from the nonnegative integers to the set, say L, of finite sets of lattice points with nonnegative coordinates,
- let Q be the inverse of P,
- for any n > 0 and k > 0:
T(n, k) = Q(P(n) + P(k))
where "+" denotes the Minkowski addition on L.
This sequence has similarities with A297845, and their data sections almost match; T(6, 6) = 30, however A297845(6, 6) = 90.
This sequence has similarities with A067138; here we work on dimension 2, there in dimension 1.
This sequence as a binary operation distributes over A059896, whereas A297845 distributes over multiplication (A003991) and A329329 distributes over A059897. See the comment in A329329 for further description of the relationship between these sequences. - Peter Munn, Dec 19 2019

Examples

			Array T(n, k) begins:
  n\k|  1   2   3    4    5    6    7     8     9    10    11    12
  ---+-------------------------------------------------------------
    1|  1   1   1    1    1    1    1     1     1     1     1     1
    2|  1   2   3    4    5    6    7     8     9    10    11    12
    3|  1   3   5    9    7   15   11    27    25    21    13    45
    4|  1   4   9   16   25   36   49    64    81   100   121   144
    5|  1   5   7   25   11   35   13   125    49    55    17   175
    6|  1   6  15   36   35   30   77   216   225   210   143   540
    7|  1   7  11   49   13   77   17   343   121    91    19   539
    8|  1   8  27   64  125  216  343   128   729  1000  1331  1728
    9|  1   9  25   81   49  225  121   729   625   441   169  2025
   10|  1  10  21  100   55  210   91  1000   441   110   187  2100
   11|  1  11  13  121   17  143   19  1331   169   187    23  1573
   12|  1  12  45  144  175  540  539  1728  2025  2100  1573   720
		

Crossrefs

Columns (some differing for term 1) and equivalently rows: A003961(3), A000290(4), A045966(5), A045968(7), A045970(11).
Related binary operations: A067138, A059896, A297845/A003991, A329329/A059897.

Programs

  • PARI
    \\ See Links section.

Formula

For any m > 0, n > 0, k > 0, i >= 0, j >= 0:
- T(n, k) = T(k, n) (T is commutative),
- T(m, T(n, k)) = T(T(m, n), k) (T is associative),
- T(n, 1) = 1 (1 is an absorbing element for T),
- T(n, 2) = n (2 is an identity element for T),
- T(n, 3) = A003961(n),
- T(n, 4) = n^2 (A000290),
- T(n, 5) = A357852(n),
- T(n, 7) = A045968(n) (when n > 1),
- T(n, 11) = A045970(n) (when n > 1),
- T(n, 2^(2^i)) = n^(2^i),
- T(2^i, 2^j) = 2^A067138(i, j),
- T(A019565(i), A019565(j)) = A019565(A067138(i, j)),
- T(A000040(n), A000040(k)) = A000040(n + k - 1),
- T(2^(2^i), 2^(2^j)) = 2^(2^(i + j)),
- A001221(T(n, k)) <= A001221(n) * A001221(k),
- A064547(T(n, k)) <= A064547(n) * A064547(k).
From Peter Munn, Dec 05 2019:(Start)
T(A329050(i_1, j_1), A329050(i_2, j_2)) = A329050(i_1+i_2, j_1+j_2).
Equivalently, T(prime(i_1 - 1)^(2^(j_1)), prime(i_2 - 1)^(2^(j_2))) = prime(i_1+i_2 - 1)^(2^(j_1+j_2)), where prime(i) = A000040(i).
T(A059896(i,j), k) = A059896(T(i,k), T(j,k)) (T distributes over A059896).
T(A019565(i), 2^j) = A019565(i)^j.
T(A225546(i), A225546(j)) = A225546(T(i,j)).
(End)

A064179 Infinitary version of Moebius function: infinitary MoebiusMu of n, equal to mu(n) iff mu(n) differs from zero, else 1 or -1 depending on whether the sum of the binary digits of the exponents in the prime decomposition of n is even or odd.

Original entry on oeis.org

1, -1, -1, -1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, -1, -1, 1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, 1, 1, -1, 1, 1, -1, -1, -1, -1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, -1, 1, -1, 1, 1, -1, -1, -1, 1, 1, 1, 1, -1, -1, 1, 1, -1, -1, -1, -1, 1, 1, 1, 1, -1, -1, 1, -1, 1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, 1, 1, -1, -1, 1, 1, 1, -1, -1, -1
Offset: 1

Views

Author

Wouter Meeussen, Sep 20 2001

Keywords

Comments

Apparently the (ordinary) Dirichlet inverse of A050377. - R. J. Mathar, Jul 15 2010
Also analog of Liouville's function (A008836) in Fermi-Dirac arithmetic, where the terms of A050376 play the role of primes (see examples). - Vladimir Shevelev, Oct 28 2013.

Examples

			G.f. = x - x^2 - x^3 - x^4 - x^5 + x^6 - x^7 + x^8 - x^9 + x^10 - x^11 + x^12 + ...
mu[45]=0 but iMoebiusMu[45]=1 because 45 = 3^2 * 5^1 and the binary digits of 2 and 1 add up to 2, an even number.
A unique representation of 48 over distinct terms of A050376 is 3*16. Since it contains even factors, then a(48)=1; for 54 such a representation is 2*3*9, thus a(54)=-1. - _Vladimir Shevelev_, Oct 28 2013
		

References

  • Vladimir S. Shevelev, Multiplicative functions in the Fermi-Dirac arithmetic, Izvestia Vuzov of the North-Caucasus region, Nature sciences 4 (1996), 28-43 (in Russian)

Crossrefs

Sequences with related definitions: A008683, A008836, A064547, A302777.
Positions of -1: A000028.
Positions of 1: A000379.
Sequences used to express relationships between the terms: A000188, A003961, A007913, A008833, A059897, A225546.

Programs

  • Mathematica
    iMoebiusMu[n_] := Switch[MoebiusMu[n], 1, 1, -1, -1, 0, If[OddQ[Plus@@(DigitCount[Last[Transpose[FactorInteger[n]]], 2, 1])], -1, 1]];
    (* The Moebius inversion formula seems to hold for iMoebiusMu and the infinitary_divisors of n: if g[ n_ ] := Plus@@(f/@iDivisors[ n ]) for all n, then f[ n_ ]===Plus@@(iMoebiusMu[ # ]g[ n/# ]&/@iDivisors[ n ]) *)
    f[p_, e_] := (-1)^DigitCount[e, 2, 1]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Dec 23 2023 *)
  • PARI
    {a(n) = my(A, p, e); if( n<1, 0, A = factor(n); prod(k=1, matsize(A)[1], [p, e] = A[k, ]; (-1) ^ subst( Pol( binary(e)), x, 1)))}; /* Michael Somos, Jan 08 2008 */
    
  • PARI
    a(n) = if (n==1, 1, (-1)^omega(core(n)) * a(core(n,1)[2])) \\ Peter Munn, Mar 16 2022
    
  • PARI
    a(n) = vecprod(apply(x -> (-1)^hammingweight(x), factor(n)[, 2])); \\ Amiram Eldar, Dec 23 2023
    
  • Python
    from math import prod
    from sympy import factorint
    def A064179(n): return prod(-1 if e.bit_count()&1 else 1 for e in factorint(n).values()) # Chai Wah Wu, Oct 12 2024
  • Scheme
    (define (A064179 n) (expt -1 (A064547 n))) ;; Antti Karttunen, Nov 23 2017
    

Formula

From Vladimir Shevelev Feb 20 2011: (Start)
Sum_{d runs through i-divisors of n} a(d)=1 if n=1, or 0 if n>1; Sum_{d runs through i-divisors of n} a(d)/d = A091732(n)/n.
Infinitary Moebius inversion:
If Sum_{d runs through i-divisors of n} f(d)=F(n), then f(n) = Sum_{d runs through i-divisors of n} a(d)*F(n/d). (End)
a(n) = (-1)^A064547(n). - R. J. Mathar, Apr 19 2011
Let k=k(n) be the number of terms of A050376 that divide n with odd maximal exponent. Then a(n) = (-1)^k. For example, if n=96, then the maximal exponent of 2 that divides 96 is 5, for 3 it is 1, for 4 it is 2, for 16 it is 1. Thus k(96)=3 and a(96)=-1. - Vladimir Shevelev, Oct 28 2013
From Peter Munn, Jan 25 2020: (Start)
a(A050376(n)) = -1; a(A059897(n,k)) = a(n) * a(k).
a(n^2) = a(n).
a(A003961(n)) = a(n).
a(A225546(n)) = a(n).
a(A000028(n)) = -1; a(A000379(n)) = 1.
(End)
a(n) = a(A007913(n)) * a(A008833(n)) = (-1)^A001221(A007913(n)) * a(A000188(n)). - Peter Munn, Mar 16 2022
From Amiram Eldar, Dec 23 2023: (Start)
Multiplicative with a(p^e) = (-1)^A000120(e).
Dirichlet g.f.: 1/Product_{k>=0} zeta(2^k * s) (Steuding et al., 2011). (End)
Previous Showing 51-60 of 95 results. Next