%I #8 Aug 02 2021 12:12:40
%S 2,23,43,67,73,541,673,911,2333,3733,4451,4657,5279,6043,7591,8887,
%T 9521,12539,16651,20173,26111,26981,30029,30817,33601,34981,37357,
%U 41983,42359,45007,47947,53819,58907,69239,75617,79309,81421,97931,101879,104459,110597
%N Primes of the form Sum_{k=1..m} (m^k mod (m+k)).
%p P:=proc(i) local a,n; for n from 0 by 1 to i do a:=sum('(n^k mod (n+k))','k'=1..n); if isprime(a) then print(a); fi; od; end: P(500);
%Y Cf. A156556, A156558, A156559.
%K nonn,easy
%O 1,1
%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Feb 10 2009
%E Offset changed to 1 by _Jinyuan Wang_, Aug 02 2021
|