A238528 Record prime values of A238525.

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

Author

J. Stauduhar, Feb 28 2014

Keywords

• nonn

Comments

The prime values in A238526.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A238525, A238526, A238527.

Programs

Mathematica

Union @ FoldList[Max, Select[Table[Mod[n, Plus @@ Times @@@ FactorInteger[n]], {n, 2, 3000}], PrimeQ]] (* Amiram Eldar, May 17 2021 *)