A348258 Records in A083876.

341, 1105, 1729, 29341, 162401, 252601, 1152271, 2508013, 3828001, 6733693, 17098369, 17236801, 29111881, 82929001, 172947529, 216821881, 228842209, 366652201, 413138881, 2301745249, 2438403661, 5255104513, 5781222721, 8251854001, 12173703001, 13946829751, 15906120889, 23224518901

Offset

1,1

Links

Table of n, a(n) for n=1..28.

Mathematica

f[1] = 341; f[2] = 1105; f[3] = 1729; f[n_] := f[n] = Block[{k = f[n -1], lp = Prime@ Range[2, n -1], p = Prime@ n}, While[ PrimeQ@ k || PowerMod[2, k -1, k] != 1 || PowerMod[p, k -1, k] != 1 || Union[ PowerMod[lp, k -1, k]] != {1}, k += 2]; k]; Union[ Table[ f@n, {n, 1012}]]

Crossrefs

Cf. A083876, A271221, A300629.

Sequence in context: A291601 A367319 A083876 * A068216 A038473 A276733

Adjacent sequences: A348255 A348256 A348257 * A348259 A348260 A348261

Keyword

nonn

Author

Robert G. Wilson v, Oct 08 2021

Status

approved