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-10 of 23 results. Next

A115245 Partial sums of A011764.

Original entry on oeis.org

3, 12, 93, 6654, 43053375, 1853020231905216, 3433683820292514337678080994497, 11790184577738583171520872861415952349498504106613519190091458
Offset: 0

Views

Author

Roger L. Bagula, Jun 07 2008

Keywords

Crossrefs

Programs

A130830 Irregular triangle read by rows: row(n) consists of the first A011764(n-1) terms of A006047.

Original entry on oeis.org

1, 2, 3, 1, 2, 3, 2, 4, 6, 3, 6, 9, 1, 2, 3, 2, 4, 6, 3, 6, 9, 2, 4, 6, 4, 8, 12, 6, 12, 18, 3, 6, 9, 6, 12, 18, 9, 18, 27, 2, 4, 6, 4, 8, 12, 6, 12, 18, 4, 8, 12, 8, 16, 24, 12, 24, 36, 6, 12, 18, 12, 24, 36, 18, 36, 54, 3, 6, 9, 6, 12, 18, 9, 18, 27, 6, 12, 18, 12, 24, 36, 18, 36, 54, 9, 18, 27
Offset: 1

Views

Author

Roger L. Bagula, Aug 20 2007

Keywords

Examples

			Triangle begins:
{1, 2, 3},
{1, 2, 3, 2, 4, 6, 3, 6, 9},
{1, 2, 3, 2, 4, 6, 3, 6, 9, 2, 4, 6, 4, 8, 12, 6, 12, 18, 3, 6, 9, 6, 12, 18, 9, 18, 27, 2, 4, 6, 4, 8, 12, 6, 12, 18, 4, 8, 12, 8, 16, 24, 12, 24, 36, 6, 12, 18, 12, 24, 36, 18, 36, 54, 3, 6, 9, 6, 12, 18, 9, 18, 27, 6, 12, 18, 12, 24, 36, 18, 36, 54, 9, 18, 27, 18, 36, 54, 27, 54, 81}, ...
		

Crossrefs

Extensions

Edited by N. J. A. Sloane, Jun 07 2008

A225546 Tek's flip: Write n as the product of distinct factors of the form prime(i)^(2^(j-1)) with i and j integers, and replace each such factor with prime(j)^(2^(i-1)).

Original entry on oeis.org

1, 2, 4, 3, 16, 8, 256, 6, 9, 32, 65536, 12, 4294967296, 512, 64, 5, 18446744073709551616, 18, 340282366920938463463374607431768211456, 48, 1024, 131072, 115792089237316195423570985008687907853269984665640564039457584007913129639936, 24, 81, 8589934592, 36, 768
Offset: 1

Views

Author

Paul Tek, May 10 2013

Keywords

Comments

This is a multiplicative self-inverse permutation of the integers.
A225547 gives the fixed points.
From Antti Karttunen and Peter Munn, Feb 02 2020: (Start)
This sequence operates on the Fermi-Dirac factors of a number. As arranged in array form, in A329050, this sequence reflects these factors about the main diagonal of the array, substituting A329050[j,i] for A329050[i,j], and this results in many relationships including significant homomorphisms.
This sequence provides a relationship between the operations of squaring and prime shift (A003961) because each successive column of the A329050 array is the square of the previous column, and each successive row is the prime shift of the previous row.
A329050 gives examples of how significant sets of numbers can be formed by choosing their factors in relation to rows and/or columns. This sequence therefore maps equivalent derived sets by exchanging rows and columns. Thus odd numbers are exchanged for squares, squarefree numbers for powers of 2 etc.
Alternative construction: For n > 1, form a vector v of length A299090(n), where each element v[i] for i=1..A299090(n) is a product of those distinct prime factors p(i) of n whose exponent e(i) has the bit (i-1) "on", or 1 (as an empty product) if no such exponents are present. a(n) is then Product_{i=1..A299090(n)} A000040(i)^A048675(v[i]). Note that because each element of vector v is squarefree, it means that each exponent A048675(v[i]) present in the product is a "submask" (not all necessarily proper) of the binary string A087207(n).
This permutation effects the following mappings:
A000035(a(n)) = A010052(n), A010052(a(n)) = A000035(n). [Odd numbers <-> Squares]
A008966(a(n)) = A209229(n), A209229(a(n)) = A008966(n). [Squarefree numbers <-> Powers of 2]
(End)
From Antti Karttunen, Jul 08 2020: (Start)
Moreover, we see also that this sequence maps between A016825 (Numbers of the form 4k+2) and A001105 (2*squares) as well as between A008586 (Multiples of 4) and A028983 (Numbers with even sum of the divisors).
(End)

Examples

			  7744  = prime(1)^2^(2-1)*prime(1)^2^(3-1)*prime(5)^2^(2-1).
a(7744) = prime(2)^2^(1-1)*prime(3)^2^(1-1)*prime(2)^2^(5-1) = 645700815.
		

Crossrefs

Cf. A225547 (fixed points) and the subsequences listed there.
Transposes A329050, A329332.
An automorphism of positive integers under the binary operations A059895, A059896, A059897, A306697, A329329.
An automorphism of A059897 subgroups: A000379, A003159, A016754, A122132.
Permutes lists where membership is determined by number of Fermi-Dirac factors: A000028, A050376, A176525, A268388.
Sequences f that satisfy f(a(n)) = f(n): A048675, A064179, A064547, A097248, A302777, A331592.
Pairs of sequences (f,g) that satisfy a(f(n)) = g(a(n)): (A000265,A008833), (A000290,A003961), (A005843,A334747), (A006519,A007913), (A008586,A334748).
Pairs of sequences (f,g) that satisfy a(f(n)) = g(n), possibly with offset change: (A000040,A001146), (A000079,A019565).
Pairs of sequences (f,g) that satisfy f(a(n)) = g(n), possibly with offset change: (A000035, A010052), (A008966, A209229), (A007814, A248663), (A061395, A299090), (A087207, A267116), (A225569, A227291).
Cf. A331287 [= gcd(a(n),n)].
Cf. A331288 [= min(a(n),n)], see also A331301.
Cf. A331309 [= A000005(a(n)), number of divisors].
Cf. A331590 [= a(a(n)*a(n))].
Cf. A331591 [= A001221(a(n)), number of distinct prime factors], see also A331593.
Cf. A331740 [= A001222(a(n)), number of prime factors with multiplicity].
Cf. A331733 [= A000203(a(n)), sum of divisors].
Cf. A331734 [= A033879(a(n)), deficiency].
Cf. A331735 [= A009194(a(n))].
Cf. A331736 [= A000265(a(n)) = a(A008833(n)), largest odd divisor].
Cf. A335914 [= A038040(a(n))].
A self-inverse isomorphism between pairs of A059897 subgroups: (A000079,A005117), (A000244,A062503), (A000290\{0},A005408), (A000302,A056911), (A000351,A113849 U {1}), (A000400,A062838), (A001651,A252895), (A003586,A046100), (A007310,A000583), (A011557,A113850 U {1}), (A028982,A042968), (A053165,A065331), (A262675,A268390).
A bijection between pairs of sets: (A001248,A011764), (A007283,A133466), (A016825, A001105), (A008586, A028983).
Cf. also A336321, A336322 (compositions with another involution, A122111).

Programs

  • Mathematica
    Array[If[# == 1, 1, Times @@ Flatten@ Map[Function[{p, e}, Map[Prime[Log2@ # + 1]^(2^(PrimePi@ p - 1)) &, DeleteCases[NumberExpand[e, 2], 0]]] @@ # &, FactorInteger[#]]] &, 28] (* Michael De Vlieger, Jan 21 2020 *)
  • PARI
    A019565(n) = factorback(vecextract(primes(logint(n+!n, 2)+1), n));
    a(n) = {my(f=factor(n)); for (i=1, #f~, my(p=f[i,1]); f[i,1] = A019565(f[i,2]); f[i,2] = 2^(primepi(p)-1);); factorback(f);} \\ Michel Marcus, Nov 29 2019
    
  • PARI
    A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; };
    A225546(n) = if(1==n,1,my(f=factor(n),u=#binary(vecmax(f[, 2])),prods=vector(u,x,1),m=1,e); for(i=1,u,for(k=1,#f~, if(bitand(f[k,2],m),prods[i] *= f[k,1])); m<<=1); prod(i=1,u,prime(i)^A048675(prods[i]))); \\ Antti Karttunen, Feb 02 2020
    
  • Python
    from math import prod
    from sympy import prime, primepi, factorint
    def A225546(n): return prod(prod(prime(i) for i, v in enumerate(bin(e)[:1:-1],1) if v == '1')**(1<Chai Wah Wu, Mar 17 2023

Formula

Multiplicative, with a(prime(i)^j) = A019565(j)^A000079(i-1).
a(prime(i)) = 2^(2^(i-1)).
From Antti Karttunen and Peter Munn, Feb 06 2020: (Start)
a(A329050(n,k)) = A329050(k,n).
a(A329332(n,k)) = A329332(k,n).
Equivalently, a(A019565(n)^k) = A019565(k)^n. If n = 1, this gives a(2^k) = A019565(k).
a(A059897(n,k)) = A059897(a(n), a(k)).
The previous formula implies a(n*k) = a(n) * a(k) if A059895(n,k) = 1.
a(A000040(n)) = A001146(n-1); a(A001146(n)) = A000040(n+1).
a(A000290(a(n))) = A003961(n); a(A003961(a(n))) = A000290(n) = n^2.
a(A000265(a(n))) = A008833(n); a(A008833(a(n))) = A000265(n).
a(A006519(a(n))) = A007913(n); a(A007913(a(n))) = A006519(n).
A007814(a(n)) = A248663(n); A248663(a(n)) = A007814(n).
A048675(a(n)) = A048675(n) and A048675(a(2^k * n)) = A048675(2^k * a(n)) = k + A048675(a(n)).
(End)
From Antti Karttunen and Peter Munn, Jul 08 2020: (Start)
For all n >= 1, a(2n) = A334747(a(n)).
In particular, for n = A003159(m), m >= 1, a(2n) = 2*a(n). [Note that A003159 includes all odd numbers]
(End)

Extensions

Name edited by Peter Munn, Feb 14 2020
"Tek's flip" prepended to the name by Antti Karttunen, Jul 08 2020

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

A059919 Generalized Fermat numbers: 3^(2^n)+1, n >= 0.

Original entry on oeis.org

4, 10, 82, 6562, 43046722, 1853020188851842, 3433683820292512484657849089282, 11790184577738583171520872861412518665678211592275841109096962
Offset: 0

Views

Author

Henry Bottomley, Feb 08 2001

Keywords

Comments

Generalized Fermat numbers (Ribenboim (1996))
F_n(a) := F_n(a,1) = a^(2^n) + 1, a >= 2, n >= 0, can't be prime if a is odd (as is the case for this sequence). - Daniel Forgues, Jun 19-20 2011

Examples

			a(0) = 3^(2^0)+1 = 3^1+1 = 4 = 2*(1)+2 = 2*(empty product)+2;
a(1) = 3^(2^1)+1 = 3^2+1 = 10 = 2*(4)+2;
a(2) = 3^(2^2)+1 = 3^4+1 = 82 = 2*(4*10)+2;
a(3) = 3^(2^3)+1 = 3^8+1 = 6562 = 2*(4*10*82)+2;
a(4) = 3^(2^4)+1 = 3^16+1 = 43046722 = 2*(4*10*82*6562)+2;
a(5) = 3^(2^5)+1 = 3^32+1 = 1853020188851842 = 2*(4*10*82*6562*43046722)+2;
		

Crossrefs

Cf. A000215 (Fermat numbers: 2^(2^n) + 1, n >= 0).
Cf. A059917 ((3^(2^n)+1)/2).

Programs

Formula

a(0) = 4; a(n) = (a(n-1)-1)^2 + 1, n >= 1.
a(n) = A011764(n)+1 = A059918(n+1)/A059918(n) = (A059917(n+1)-1)/(A059917(n)-1) = (A059723(n)/A059723(n+1))*(A059723(n+2)-A059723(n+1))/(A059723(n+1)-A059723(n))
a(n) = A057727(n)-1. - R. J. Mathar, Apr 23 2007
a(n) = 2*a(n-1)*a(n-2)*...*a(1)*a(0) + 2, n >= 0, where for n = 0, we get 2*(empty product, i.e., 1) + 2 = 4 = a(0).
The above formula implies the GCD of any pair of terms is 2, which means that the terms of (3^(2^n)+1)/2 (A059917) are pairwise coprime. - Daniel Forgues, Jun 20 & 22 2011
Sum_{n>=0} 2^n/a(n) = 1/2. - Amiram Eldar, Oct 03 2022

Extensions

Edited by Daniel Forgues, Jun 19 2011 and Jun 20 2011

A078885 Decimal expansion of Sum {n>=0} 1/3^(2^n).

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Dec 11 2002

Keywords

Examples

			0.456942562477639661115491826166903037989942599713831192091056874309982...
		

Crossrefs

Cf. A004200 (continued fraction), A011764.

Programs

  • Mathematica
    RealDigits[ N[ Sum[1/3^(2^n), {n, 0, Infinity}], 110]] [[1]]
  • PARI
    default(realprecision, 20080); x=suminf(n=0, 1/3^(2^n)); x*=10; for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b078885.txt", n, " ", d)); \\ Harry J. Smith, May 10 2009

Formula

Equals -Sum_{k>=1} mu(2*k)/(3^k - 1), where mu is the Möbius function (A008683). - Amiram Eldar, Jul 12 2020

A079261 Characteristic function of primes of form 4n+3 (1 if n is prime of form 4n+3, 0 otherwise).

Original entry on oeis.org

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

Views

Author

Benoit Cloitre, Feb 04 2003

Keywords

Comments

Let M(n) denote the n X n matrix m(i,j)=0 if n divides ij-1, m(i,j) = 1 otherwise then det(M(n))=+1 if and only if n is prime ==3 (mod 4).
a(A002145(n)) = 1; a(A145395(n)) = 0. [From Reinhard Zumkeller, Oct 12 2008]
a(n) * A151763(n) = - a(n).

Crossrefs

Cf. A066490 (partial sums).

Programs

  • Haskell
    a079261 n = fromEnum $ n `mod` 4 == 3 && a010051 n == 1
    -- Reinhard Zumkeller, Oct 06 2011
  • Mathematica
    Table[If[PrimeQ[n]&&Mod[n,4]==3,1,0],{n,120}] (* Harvey P. Dale, Apr 26 2025 *)
  • PARI
    { a(n)=isprime(n)*if(n%4-3,0,1) }; vector(100,n,a(n))
    

Formula

a(n) = - A010051(n) * A011764(n+1). [Reinhard Zumkeller, Oct 06 2011]

A176594 a(n) = 5^(2^n).

Original entry on oeis.org

5, 25, 625, 390625, 152587890625, 23283064365386962890625, 542101086242752217003726400434970855712890625, 293873587705571876992184134305561419454666389193021880377187926569604314863681793212890625
Offset: 0

Views

Author

Vincenzo Librandi, Apr 21 2010

Keywords

Comments

Also the hypotenuse of primitive Pythagorean triangles obtained by repeated application of basic formula c(n)=p(n)^2+q(n)^2 starting p(0)=2, q(0)=1, see A100686, A098122. Example: a(2)=25 since starting (2,1) gives Pythagorean triple (3,4,5) using (3,4) as new generators gives triple (7,24,25) hypotenuse 25=a(2). - Carmine Suriano, Feb 04 2011

Crossrefs

Programs

Formula

a(n) = A165423(n+3).
a(n+1) = a(n)^2 with a(0)=5.
a(n-1) = (Im((2+i)^(2^n))^2 + Re((2+i)^(2^n))^2)^(1/2). - Carmine Suriano, Feb 04 2011
Sum_{n>=0} 1/a(n) = A078886. - Amiram Eldar, Nov 09 2020
Product_{n>=0} (1 + 1/a(n)) = 5/4. - Amiram Eldar, Jan 29 2021

Extensions

Offset corrected by R. J. Mathar, Jun 18 2010

A336322 a(n) = A225546(A122111(n)).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 5, 16, 9, 12, 10, 32, 15, 24, 18, 256, 30, 64, 7, 48, 27, 20, 14, 512, 36, 40, 81, 96, 21, 128, 42, 65536, 54, 60, 72, 1024, 35, 120, 45, 768, 70, 192, 105, 80, 162, 28, 210, 131072, 25, 144, 90, 160, 11, 4096, 108, 1536, 135, 56, 22, 2048, 33, 84, 243, 4294967296, 216, 384, 66, 240, 270, 288, 55, 262144, 110, 168, 324, 480, 50
Offset: 1

Views

Author

Antti Karttunen and Peter Munn, Jul 17 2020

Keywords

Comments

A225546 and A122111 are both self-inverse permutations of the positive integers based on prime factorizations, and they share further common properties. For instance, they map the prime numbers to powers of 2: A225546 maps the k-th prime to 2^2^(k-1), whereas A122111 maps it to 2^k.
In composing these permutations, this sequence maps the list of prime numbers to the squarefree numbers, as listed in A019565; and the "normal" numbers (A055932), as listed in A057335, to ascending powers of 2.

Crossrefs

A225546 composed with A122111.
Sorted even bisection: A335738.
Sorted odd bisection (excluding 1): A335740.
Sequences used to express relationship between terms of this sequence: A001222, A003961, A253560, A331590, A350066.
Sequences of sequences (S_1, S_2, ... S_j) with the property a(S_i) = S_{i+1}, or essentially so: (A033844, A000040, A019565), (A057335, A000079, A001146), (A000244, A011764), (A001248, A334110), (A253563, A334866).
The inverse permutation, A336321, lists sequences where the property is weaker (between the sets of terms).

Formula

a(A033844(m)) = A000040(m+1). [Offset corrected Peter Munn, Feb 14 2022]
a(A000040(m)) = A019565(m).
a(A057335(m)) = 2^m.
For m >= 1, a(2^m) = A001146(m-1).
a(A253563(m)) = A334866(m).
From Peter Munn, Feb 14 2022: (Start)
a(A253560(n)) = a(n)^2.
For n >= 2, a(A003961(n)) = A331590(a(n), 2^2^(A001222(n)-1)).
a(A350066(n, k)) = A331590(a(n), a(k)).
(End)

A059917 a(n) = (3^(2^n) + 1)/2 = A059919(n)/2, n >= 0.

Original entry on oeis.org

2, 5, 41, 3281, 21523361, 926510094425921, 1716841910146256242328924544641, 5895092288869291585760436430706259332839105796137920554548481
Offset: 0

Views

Author

Henry Bottomley, Feb 08 2001

Keywords

Comments

Average of first 2^(n+1) powers of 3 divided by average of first 2^n powers of 3.
Numerator of b(n) where b(n) = (1/2)*(b(n-1) + 1/b(n-1)), b(0)=2. - Vladeta Jovovic, Aug 15 2002
From Daniel Forgues, Jun 22 2011: (Start)
Since for the generalized Fermat numbers 3^(2^n)+1 (A059919), we have a(n) = 2*a(n-1)*a(n-2)*...*a(1)*a(0) + 2, n >= 0, where for n = 0, we get 2*(empty product, i.e., 1) + 2 = 4 = a(0). This formula implies that the GCD of any pair of terms of A059919 is 2, which means that the terms of (3^(2^n)+1)/2 (A059917) are pairwise coprime.
2, 5, 41, 21523361, 926510094425921 are prime. 3281 = 17*193. (End)
a(0), a(1), a(2), a(4), a(5), and a(6) are prime. Conjecture: a(n) is composite for all n > 6. - Thomas Ordowski, Dec 26 2012
This may be a primality test for Mersenne numbers. a(2) = 41 == -1 mod 7 (=M3), a(4) = 21523361 == 30 == -1 mod 31 (=M5). However, a(10) is not == -1 mod M11. - Nobuyuki Fujita, May 16 2015

Examples

			a(2) = Average(1,3,9,27,81,243,729,2187)/Average(1,3,9,27) = 410/10 = 41.
		

Crossrefs

Cf. A059918, A059919. Primes are in A093625.

Programs

  • GAP
    List([0..10],n->(3^(2^n)+1)/2); # Muniru A Asiru, Aug 07 2018
  • Magma
    [(3^(2^n)+1)/2: n in [0..10]]; // Vincenzo Librandi, May 16 2015
    
  • Maple
    seq((3^(2^n)+1)/2,n=0..11); # Muniru A Asiru, Aug 07 2018
  • Mathematica
    Table[(3^(2^n) + 1)/2, {n, 0, 10}] (* Vincenzo Librandi, May 16 2015 *)
  • PARI
    { for (n=0, 11, write("b059917.txt", n, " ", (3^(2^n) + 1)/2); ) } \\ Harry J. Smith, Jun 30 2009
    

Formula

a(n) = a(n-1)*(3^(2^(n-1)) + 1) - 3^(2^(n-1)) = A059723(n+1)/A059723(n) = A059918(n) + 1 = a(n-1)*A059919(n-1) - A011764(n-1).
a(0) = 2; a(n) = ((2*a(n-1) - 1)^2 + 1)/2, n >= 1. - Daniel Forgues, Jun 22 2011
Showing 1-10 of 23 results. Next