OFFSET
2,7
COMMENTS
a(A036844(n)) = 0. - Reinhard Zumkeller, Jul 21 2014
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
FORMULA
a(n) = n mod A001414(n).
EXAMPLE
a(6) = 1, because 6 mod sopfr(6) = 6 mod 5 = 1.
MATHEMATICA
Table[Mod[n, Apply[Dot, Transpose[FactorInteger[n]]]], {n, 105}] (* Wouter Meeussen, Mar 01 2014 *)
mms[n_]:=Mod[n, Total[Flatten[Table[#[[1]], #[[2]]]&/@FactorInteger[ n]]]]; Array[mms, 90, 2] (* Harvey P. Dale, May 25 2016 *)
PROG
(Haskell)
a238525 n = mod n $ a001414 n -- Reinhard Zumkeller, Jul 21 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
J. Stauduhar, Feb 28 2014
STATUS
approved