OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] spf[x_] := Apply[Plus, ba[x]] Table[Min[Flatten[Position[Table[spf[w], {w, n+1, n^2}]-spf[n], 0]]+n], {n, 1, 100}]
PROG
(Haskell)
a081382 1 = 1
a081382 n = head [x | let sopf = a008472 n, x <- [n+1..], a008472 x == sopf]
-- Reinhard Zumkeller, Jun 12 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 26 2003
STATUS
approved