OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..4000
FORMULA
a(n) = Min{x; A084310(x)=n}.
MATHEMATICA
f[x_] := GCD[Prime[x]+1, x] t=Table[0, {256}]; Do[s=f[n]; If[s<257&&t[[s]]==0, t[[s]]=n], {n, 1, 100000}]; t
Module[{cc=Table[{x, GCD[Prime[x]+1, x]}, {x, 20000}]}, Transpose[Table[ SelectFirst[ cc, #[[2]]==n&], {n, 60}]][[1]]] (* Harvey P. Dale, Nov 28 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 13 2003
STATUS
approved