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.

A366073 The number of composite "Fermi-Dirac primes" (A082522) dividing n.

Original entry on oeis.org

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

Views

Author

Amiram Eldar, Sep 28 2023

Keywords

Comments

First differs from A071325 at n = 36.
The number of "Fermi-Dirac primes" that are infinitary divisors of n is A064547(n).

Crossrefs

Programs

  • Mathematica
    f[p_, e_] := Floor[Log2[e]]; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100]
  • PARI
    a(n) = vecsum(apply(exponent, factor(n)[, 2]));
    
  • Python
    from sympy import factorint
    def A366073(n): return -len(f:=factorint(n).values())+sum(map(int.bit_length,f)) # Chai Wah Wu, Feb 19 2025

Formula

Additive with a(p^e) = floor(log_2(e)) = A000523(e).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Sum_{k>=1} P(2^k) = 0.53331724743088069672..., where P(s) is the prime zeta function.

A046644 From square root of Riemann zeta function: form Dirichlet series Sum b_n/n^s whose square is zeta function; sequence gives denominator of b_n.

Original entry on oeis.org

1, 2, 2, 8, 2, 4, 2, 16, 8, 4, 2, 16, 2, 4, 4, 128, 2, 16, 2, 16, 4, 4, 2, 32, 8, 4, 16, 16, 2, 8, 2, 256, 4, 4, 4, 64, 2, 4, 4, 32, 2, 8, 2, 16, 16, 4, 2, 256, 8, 16, 4, 16, 2, 32, 4, 32, 4, 4, 2, 32, 2, 4, 16, 1024, 4, 8, 2, 16, 4, 8, 2, 128, 2, 4, 16, 16, 4, 8
Offset: 1

Views

Author

Keywords

Comments

From Antti Karttunen, Aug 21 2018: (Start)
a(n) is the denominator of any rational-valued sequence f(n) which has been defined as f(n) = (1/2) * (b(n) - Sum_{d|n, d>1, d
Proof:
Proof is by induction. We assume as our induction hypothesis that the given multiplicative formula for A046644 (resp. additive formula for A046645) holds for all proper divisors d|n, dA046645(p) = 1. [Remark: for squares of primes, f(p^2) = (4*b(p^2) - 1)/8, thus a(p^2) = 8.]
First we note that A005187(x+y) <= A005187(x) + A005187(y), with equivalence attained only when A004198(x,y) = 0, that is, when x and y do not have any 1-bits in the shared positions. Let m = Sum_{e} A005187(e), with e ranging over the exponents in prime factorization of n.
For [case A] any n in A268388 it happens that only when d (and thus also n/d) are infinitary divisors of n will Sum_{e} A005187(e) [where e now ranges over the union of multisets of exponents in the prime factorizations of d and n/d] attain value m, which is the maximum possible for such sums computed for all divisor pairs d and n/d. For any n in A268388, A037445(n) = 2^k, k >= 2, thus A037445(n) - 2 = 2 mod 4 (excluding 1 and n from the count, thus -2). Thus, in the recursive formula above, the maximal denominator that occurs in the sum is 2^m which occurs k times, with k being an even number, but not a multiple of 4, thus the factor (1/2) in the front of the whole sum will ensure that the denominator of the whole expression is 2^m [which thus is equal to 2^A046645(n) = a(n)].
On the other hand [case B], for squares in A050376 (A082522, numbers of the form p^(2^k) with p prime and k>0), all the sums A005187(x)+A005187(y), where x+y = 2^k, 0 < x <= y < 2^k are less than A005187(2^k), thus it is the lonely "middle pair" f(p^(2^(k-1))) * f(p^(2^(k-1))) among all the pairs f(d)*f(n/d), 1 < d < n = p^(2^k) which yields the maximal denominator. Furthermore, as it occurs an odd number of times (only once), the common factor (1/2) for the whole sum will increase the exponent of 2 in denominator by one, which will be (2*A005187(2^(k-1))) + 1 = A005187(2^k) = A046645(p^(2^k)).
(End)
From Antti Karttunen, Aug 21 2018: (Start)
The following list gives a few such pairs num(n), b(n) for which b(n) is Dirichlet convolution of num(n)/a(n). Here ε stands for sequence A063524 (1, 0, 0, ...).
Numerators Dirichlet convolution of numerator(n)/a(n) yields
------- -----------
(End)
This sequence gives an upper bound for the denominators of any rational-valued sequence obtained as the "Dirichlet Square Root" of any integer-valued sequence. - Andrew Howroyd, Aug 23 2018

Crossrefs

See A046643 for more details. See also A046645, A317940.
Cf. A299150, A299152, A317832, A317926, A317932, A317934 (for denominator sequences of other similar constructions).

Programs

Formula

From Antti Karttunen, Jul 08 2017: (Start)
Multiplicative with a(p^n) = 2^A005187(n).
a(1) = 1; for n > 1, a(n) = A000079(A005187(A067029(n))) * a(A028234(n)).
a(n) = A000079(A046645(n)).
(End)
Sum_{j=1..n} A046643(j)/A046644(j) ~ n / sqrt(Pi*log(n)) * (1 + (1 - gamma/2)/(2*log(n))), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, May 04 2025

A279456 Numbers k such that number of distinct primes dividing k is odd and number of prime divisors (counted with multiplicity) of k is even.

Original entry on oeis.org

4, 9, 16, 25, 49, 60, 64, 81, 84, 90, 121, 126, 132, 140, 150, 156, 169, 198, 204, 220, 228, 234, 240, 256, 260, 276, 289, 294, 306, 308, 315, 336, 340, 342, 348, 350, 360, 361, 364, 372, 380, 414, 444, 460, 476, 490, 492, 495, 504, 516, 522, 525, 528, 529, 532, 540, 550, 558, 560, 564, 572, 580, 585, 600
Offset: 1

Author

Ilya Gutkovskiy, Dec 12 2016

Keywords

Comments

Intersection of A028260 and A030230.
Numbers k such that A000035(A001221(k)) = 1 and A000035(A001222(k)) = 0.
Numbers k such that A076479(k) = -1 and A008836(k) = 1.

Examples

			90 is in the sequence because 90 = 2*3^2*5 therefore omega(90) = 3 {2,3,5} is odd and bigomega(90) = 4 {2,3,3,5} is even.
		

Programs

  • Mathematica
    Select[Range[600], Mod[PrimeNu[#1], 2] == 1 && Mod[PrimeOmega[#1], 2] == 0 & ]
  • PARI
    is(k) = {my(f = factor(k)); omega(f) % 2 && !(bigomega(f) % 2);} \\ Amiram Eldar, Sep 17 2024

A096165 Prime powers with exponents that are themselves prime powers.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227
Offset: 1

Author

Reinhard Zumkeller, Jul 25 2004

Keywords

Comments

A000040, A053810, A050376 and A082522 are subsequences;
a(n) = A000961(n+1) for 1<=n<=26.
Complement of A164345 with respect to A000961.

Examples

			512=2^9=2^(3^2), A000961(118)=A000040(1)^A000961(118), therefore 512 is a term;
64=2^6, but 6 is not a prime power, therefore 64 is not a term.
		

Programs

  • Haskell
    a096165 n = a096165_list !! (n-1)
    a096165_list = filter ((== 1) . a010055 . a001222) $ tail a000961_list
    -- Reinhard Zumkeller, Nov 17 2011
    
  • Maple
    F:= proc(t) local P;
    P:= ifactors(t)[2];
    nops(P) = 1 and (P[1][2]=1 or nops(numtheory:-factorset(P[1][2]))=1)
    end proc:
    select(F, [$2..1000]); # Robert Israel, Jul 20 2015
  • Mathematica
    Select[Range@ 240, Or[PrimeQ@ #, PrimePowerQ@ # && PrimePowerQ@ FactorInteger[#][[1, 2]]] &] (* Michael De Vlieger, Jul 20 2015 *)
  • PARI
    is(n)=while(1,if(!(n=isprimepower(n)),return(0),if(n==1,return(1)))) \\ Anders Hellström, Jul 19 2015
    
  • PARI
    ispp(n)=n==1 || isprimepower(n)
    is(n)=ispp(isprimepower(n)) \\ Charles R Greathouse IV, Oct 19 2015
    
  • Python
    from sympy import primepi, integer_nthroot, factorint
    def A096165(n):
        def f(x): return int(n+x-sum(primepi(integer_nthroot(x,k)[0]) for k in range(1,x.bit_length()) if len(factorint(k))<=1))
        def bisection(f,kmin=0,kmax=1):
            while f(kmax) > kmax: kmax <<= 1
            while kmax-kmin > 1:
                kmid = kmax+kmin>>1
                if f(kmid) <= kmid:
                    kmax = kmid
                else:
                    kmin = kmid
            return kmax
        return bisection(f,n,n) # Chai Wah Wu, Sep 12 2024

Formula

a(n) ~ n log n. - Charles R Greathouse IV, Oct 19 2015

A335426 a(1) = 0; thereafter a(2^(2^k)) = 0 for k > 0, and for other even numbers n, a(n) = 1+a(n/2), and for odd numbers n, a(n) = 2*a(A064989(n)).

Original entry on oeis.org

0, 1, 2, 0, 4, 3, 8, 1, 0, 5, 16, 4, 32, 9, 6, 0, 64, 1, 128, 6, 10, 17, 256, 5, 0, 33, 2, 10, 512, 7, 1024, 1, 18, 65, 12, 2, 2048, 129, 34, 7, 4096, 11, 8192, 18, 8, 257, 16384, 6, 0, 1, 66, 34, 32768, 3, 20, 11, 130, 513, 65536, 8, 131072, 1025, 12, 2, 36, 19, 262144, 66, 258, 13, 524288, 3, 1048576, 2049, 2, 130, 24, 35, 2097152, 8, 0, 4097
Offset: 1

Author

Antti Karttunen, Jun 15 2020

Keywords

Crossrefs

Cf. A082522 (gives indices of zeros after a(1)=0).

Programs

Formula

a(1) = 0, and then after, a(2^(2^k)) = 0 for k > 0, and for other even numbers n, a(n) = 1+a(n/2), and for odd numbers n, a(n) = 2*a(A064989(n)).
a(n) = A335427(A225546(n)).
a(A003961(n)) = 2 * a(n).
Showing 1-5 of 5 results.