A067697 - OEIS

%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