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.

A364452 Smallest k such that 4^(4^n) - k is prime.

Original entry on oeis.org

1, 5, 5, 159, 569, 1557, 2439, 25353, 24317, 164073
Offset: 0

Views

Author

J.W.L. (Jan) Eerland, Jul 25 2023

Keywords

Comments

This is to 4 as A058220 is to 2 and A140331 is to 3.
a(8) > 22174.

Examples

			a(2) = 5 because 4^(4^2) - 5 = 4294967291 is prime.
		

Crossrefs

Programs

  • Mathematica
    lst={};Do[Do[p=4^(4^n)-k;If[PrimeQ[p],AppendTo[lst,k];Break[]],{k,2,11!}],{n,7}];lst
    Table[k=1;Monitor[Parallelize[While[True,If[PrimeQ[4^(4^n)-k],Break[]];k++];k],k],{n,1,7}]
    y[n_] := Module[{x = 4^(4^n)}, x - NextPrime[x, -1]]; Array[y, 7]
  • PARI
    a(n) = my(x = 4^(4^n)); x - precprime(x);

Formula

a(n) = A064722(A137840(n)).
a(n) = A058220(2*n+1). - Michael S. Branicky, Aug 23 2024

Extensions

a(8) using search and a(9) using A058220 from Michael S. Branicky, Aug 23 2024
a(0) = 1 prepended by Michael S. Branicky, Apr 20 2025

A137841 Number of distinct n-ary operators in a quinternary logic.

Original entry on oeis.org

5, 3125, 298023223876953125, 2350988701644575015937473074444491355637331113544175043017503412556834518909454345703125
Offset: 0

Views

Author

Ross Drewe, Feb 13 2008

Keywords

Comments

The total number of n-ary operators in a k-valued logic is T = k^(k^n), i.e. if S is a set of k elements, there are T ways of mapping an ordered subset of n elements taken from S to an element of S. Some operators are "degenerate": the operator has arity p, if only p of the n input values influence the output. = therefore the set of operators can be partitioned into n+1 disjoint subsets representing arities from 0 to n.

Crossrefs

Cf. A001146 (in binary logic), A055777 (in ternary logic), A137840 (in quaternary logic).
Subsequence of A000351.

Formula

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

A130741 a(n) = 4^(4^n) + 3.

Original entry on oeis.org

7, 259, 4294967299, 340282366920938463463374607431768211459
Offset: 0

Views

Author

Cino Hilliard, Jul 07 2007

Keywords

Comments

Numbers of the form 4^(4^n) + 3 are divisible by 7. We prove this by induction making use of the expansion (1) a^m - b^m = (a-b)(a^(m-1)+a^(m-2)b+...+b^(m-1). For n = 1, we have 4^4 + 3 = 259 = 7*37. So the statement is true for n=1. Now assume the statement is true for some integer k and show that it is also true for k+1. Thus we have 4^(4^k) + 3 = 7h for some h. Let 4^(4^(k+1))+ 3 = h1. Now consider the difference h1 - 7h. If this is a multiple of 7 then so is h1. So we have 4^(4^(k+1))+ 3 - (4^(4^k) + 3)) = 256^(4^k)-4^(4^k). This is of the form (1) where n = 4^k, a = 256 and b = 4. So the difference, a^n-b^n is divisible by (a-b) = (256-4) = 252 = 7*36. This implies 4^(4^(k+1))+3 is divisible by 7. So we have assumed the statement was true for k and have shown it to be true for k+1. Therefore by the induction hypothesis, the statement is true for all n.

Examples

			For n = 0, 4^(4^0) + 3 = 4 + 3 = 7, the first entry.
		

Programs

  • PARI
    a(n) = 4^(4^n) + 3

Formula

This function is derived from the odd case of Fermat numbers of order 3 or F(m,3) = 2^(2^m)+3. Let m = 2n+1, to get 2^(2^(2n+1)) + 3 = 2^(2*2^(2*n))+3 = 4^(2^(2*n))+3 = 4^(4^n) + 3.
a(n) = 3+A137840(n). - R. J. Mathar, Sep 10 2016

A208148 Number of n state 1 dimensional radius-1 totalistic cellular automata.

Original entry on oeis.org

1, 16, 2187, 1048576, 1220703125, 2821109907456, 11398895185373143, 73786976294838206464, 717897987691852588770249, 10000000000000000000000000000, 191943424957750480504146841291811, 4922235242952026704037113243122008064
Offset: 1

Views

Author

Ben Branman, Feb 23 2012

Keywords

Examples

			For n=2, there are 16 totalistic 2-color cellular automaton rules, corresponding to elementary cellular automata numbers 0, 1, 22, 23, 104, 105, 126, 127, 128, 129, 150, 151, 232, 233, 254, and 255.
		

Crossrefs

Cf. A137840.

Programs

Formula

a(n) = n^(3*n-2) = n^A016777(n-1).
Showing 1-4 of 4 results.