Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #20 Sep 23 2021 11:33:19
%S 1,3,6,7,58,79,191,339,443,516,1185,6275,20456,21471,27341,40123,
%T 40143,49678,50684,108977,136023,251789,432185,705256,2582498,2879786,
%U 3142462,3556591
%N Numbers k such that prime(k) == 1 (mod sigma(k)).
%t Select[Range[3560000],Mod[Prime[#]-1,DivisorSigma[1,#]]==0&] (* _Harvey P. Dale_, Sep 23 2021 *)
%Y Cf. A067696, A071170.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Feb 05 2002
%E More terms from _Labos Elemer_, May 15 2002