login
A238528
Record prime values of A238525.
5
2, 3, 5, 7, 11, 17, 29, 41, 59, 71, 101, 107, 137, 149, 179, 191, 197, 227, 239, 269, 281, 311, 347, 419, 431, 461, 521, 569, 599, 617, 641, 659, 809, 821, 827, 857, 881, 1019, 1031, 1049, 1061, 1091, 1151, 1229, 1277, 1289, 1301, 1319, 1427, 1451
OFFSET
1,1
COMMENTS
The prime values in A238526.
LINKS
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