OFFSET
0,1
COMMENTS
2(4) = 4, 3(6) = 10(4,6), 5(10) = 33(6,8,9,10), 7(14) = 53(8,9,10,12,14), 11(22) = 138(12,14,15,16,18,20,21,22).
MATHEMATICA
fQ[n_, p_] := Block[{q = First /@ FactorInteger@n}, Union[p >= # & /@ q] == {True}]; f[n_] := Block[{p = Prime@n}, Plus @@ Select[ Range[p + 1, 2 p], fQ[ #, p] &]]; Array[f, 41] (* Robert G. Wilson v, Aug 23 2010 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Odimar Fabeny, Jul 22 2010
EXTENSIONS
a(6)-a(41) from Robert G. Wilson v, Aug 23 2010
STATUS
approved