OFFSET
1,1
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..34
MATHEMATICA
a[n_] := FactorInteger[Prime[n]^Prime[n] + 1][[-1, 1]]; Array[a, 16] (* Amiram Eldar, Sep 19 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Sep 19 2025
STATUS
approved
