A370388 First appearance of prime_i in A369797 or 0 if no such appearance occurs, with p_0 being 1. (A008578 but with a different offset.)
10, 6, 0, 4, 3, 8, 5, 12, 7, 16, 20, 11, 13, 28, 15, 32, 36, 40, 21, 23, 48, 25, 27, 56, 60, 33, 68, 35, 72, 37, 76, 43, 88, 92, 47, 100, 51, 53, 55, 112, 116, 120, 61, 128, 65, 132, 67, 71, 75, 152, 77, 156, 160, 81, 168, 172, 176, 180, 91, 93, 188, 95, 196, 103, 208, 105, 212
Offset: 0
Keywords
Programs
-
Mathematica
b[n_] := b[n] = (n + 2) (b[n - 1] - b[n - 2]); b[-1] = 0; b[0] = 1; a[n_] := a[n] = (3 n - 2)/GCD[3 n - 2, b[n - 2] + 2 b[n - 3]]; Flatten[ Table[ FirstPosition[ Table[ a[n], {n, 3, 220}], n], {n, Join[{1}, Prime@ Range@ 67]}]] + 2
Formula
Conjectures from Ridouane Oudra, Apr 26 2025: (Start)
a(n) = (2/3) mod prime(n), for n>2.
a(n) = (prime(n)*A039701(n) + 2)/3, for n>2.
Comments