OFFSET
1,1
COMMENTS
If in the definition "maximum" is replaced with "minimum," then we obtain A035095 (see comment there).
FORMULA
a(n) == 1 (mod prime(n)).
MAPLE
with(numtheory):
a:= n-> max(seq(min(factorset(
(i^ithprime(n)-1)/(i-1))[]), i=2..ithprime(n))):
seq(a(n), n=1..10); # Alois P. Heinz, Dec 06 2014
MATHEMATICA
a[n_] := Max[Table[Min[FactorInteger[(i^Prime[n]-1)/(i-1)][[All, 1]]], {i, 2, Prime[n]}]];
Table[a[n], {n, 1, 12}] (* Jean-François Alcover, Mar 25 2017, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 26 2014
EXTENSIONS
More terms from Peter J. C. Moses, Nov 26 2014
STATUS
approved