A098652 Records in A098650.

9, 341, 1105, 1541, 1729, 1891, 2465, 29341, 162401, 252601, 294409, 334153, 340561, 399001, 410041, 488881, 530881, 636641, 954271, 1024651, 1152271, 1193221, 1461241, 1615681, 1857241

Offset

1,1

Links

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

Mathematica

PrimeFactors[n_] := Flatten[ Table[ # [[1]], {1} ] & /@ FactorInteger[ n ]]; f[n_] := Block[{k = n + 1}, If[EvenQ[k], k++ ]; While[ PrimeQ[k] || Union[ PowerMod[ PrimeFactors[n], k - 1, k]] != {1}, k += 2]; k]; a = {1}; b = {9}; Do[ If[ SquareFreeQ[n], c = f[n]; If[c > b[[ -1]], AppendTo[a, n]; AppendTo[b, c]; Print[n]]], {n, 2, 145000}]; b

Crossrefs

Cf. A098650, A098651.

Sequence in context: A090085 A098650 A354689 * A110695 A157589 A055601

Adjacent sequences: A098649 A098650 A098651 * A098653 A098654 A098655

Keyword

nonn,more

Author

Robert G. Wilson v, Sep 18 2004

Extensions

a(13)-a(25) from Amiram Eldar, Jul 07 2021

Status

approved