OFFSET
1,1
COMMENTS
The prime values in A238526.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Union @ FoldList[Max, Select[Table[Mod[n, Plus @@ Times @@@ FactorInteger[n]], {n, 2, 3000}], PrimeQ]] (* Amiram Eldar, May 17 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Stauduhar, Feb 28 2014
STATUS
approved