OFFSET
1,1
FORMULA
a(n)=Min{x; A065860(x)=n}
MATHEMATICA
c[x_] := FixedPoint[x+primePi[ # ]+1&, x] t=Table[0, 100]; Do[s=Mod[c[n], n]]; If[s<101&&t[[s]]==0, t[[s]]=n], {n, 1, 100000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 22 2002
STATUS
approved