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.
Wayne VanWeerthuizen's wiki page.
Wayne VanWeerthuizen has authored 17 sequences. Here are the ten most recent ones:
(3^^3) mod 11 = 9, (3^^2) mod 11 = 5. 11 is the least whole number for which this is true, thus a(3)=11.
def tower6mod(n): if ( n <= 12 ): return 46656%n else: ep = euler_phi(n) return power_mod(6,ep+tower6mod(ep),n)
import Math.NumberTheory.Moduli (powerMod) a245971 n = powerMod 4 (phi + a245971 phi) n where phi = a000010 n -- Reinhard Zumkeller, Feb 01 2015
def tower4mod(n): if n <= 10: return 256%n else: ep = euler_phi(n) return power_mod(4,ep+tower4mod(ep),n) [tower4mod(n) for n in range(1, 30)]
a(7) = 6. For any natural number X, 3^X is a positive odd multiple of 3. 3^(any positive odd multiple of three) mod 7 is always 6. a(9) = 0, since 3^(3^X) is divisible by 9 for any natural number X. In our case, X itself is a tower of 3's. a(100000000) = 64195387, giving the rightmost eight digits of Graham's Number. From _Robert Munafo_, Apr 19 2020: (Start) a(1) = 0, because 3 mod 1 = 0. a(2) = 1, because 3^3 mod 2 = 1. a(3) = 0, because 3^3^3 mod 3 = 0. a(4) = 3, because 3^3^3^3 = 3^N for odd N, 3^N = 3 mod 4 for all odd N. a(5) = 3^3^3^3^3 mod 5, and we should look at the sequence 3^N mod 5. We find that 3^N = 2 mod 5 whenever N = 3 mod 4. As just shown in the a(4) example, 3^3^3^3 = 3 mod 4. (End)
import Math.NumberTheory.Moduli (powerMod) a245972 n = powerMod 3 (a245972 $ a000010 n) n -- Reinhard Zumkeller, Feb 01 2015
A:= proc(n) option remember; 3 &^ A(numtheory:-phi(n)) mod n end proc: A(2):= 1; seq(A(n), n=2..100); # Robert Israel, Aug 01 2014
a[1] = 0; a[n_] := a[n] = PowerMod[3, a[EulerPhi[n]], n]; Array[a, 72] (* Jean-François Alcover, Feb 09 2018 *)
def A(n): if ( n <= 10 ): return 27%n else: return power_mod(3,A(euler_phi(n)),n)
Comments