|
%I
%S 1,2,22,77,242,371,16102,45727,73447,81286,112277,368237,10191797,
%T 13563742,30958697,389974222,6171655457,55606837682
%N Numbers n such that n divides 5^n - 3.
%t Select[Range[1000000], IntegerQ[(PowerMod[5,#,# ]-3)/# ]&]
%t Do[If[IntegerQ[(PowerMod[5, n, n ]-3)/n], Print[n]], {n, 10^9}] - Ryan Propper (rpropper(AT)stanford.edu), Dec 30 2006
%Y Cf. A067946 = numbers n such that n divides 5^n-1, A015951 = numbers n such that n | 5^n + 1.
%Y Numbers n such that n divides 5^n + 3 are in A123052.
%K nonn
%O 1,2
%A _Alexander Adamchuk_, Nov 04 2006
%E More terms from _Farideh Firoozbakht_, Nov 18 2006
%E Corrected and extended by Ryan Propper (rpropper(AT)stanford.edu), Jan 01 2007
%E Entry revised by _N. J. A. Sloane_, Jan 24 2007
%E a(18) from _Lars Blomberg_, Dec 12 2011
|
