A015892 Numbers k such that k | 6^k + 6.
1, 2, 3, 6, 14, 42, 66, 111, 606, 742, 3486, 6666, 8646, 13118, 26751, 58618, 66886, 125686, 141526, 144886, 489958, 525994, 695254, 752691, 1198554, 1234806, 2200386, 2479686, 2671306, 2862006, 3277626, 3716602, 5923126, 6490947
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..200
Crossrefs
Programs
-
Mathematica
Select[Range[10^5], Mod[PowerMod[6, #, #] + 6, #] == 0 &] (* Giovanni Resta, Oct 23 2018 *)
Extensions
Missing a(2)-a(3) from Giovanni Resta, Oct 23 2018