A015898 Numbers k such that k | 9^k + 9.
1, 2, 3, 6, 9, 10, 18, 30, 90, 123, 730, 7086, 172426, 300243, 372390, 449674, 1812298, 5027914, 5307130, 17214354, 20788426, 84929451, 101992426, 102177370, 103544442, 106494770, 161388338, 181327546, 193710249, 207083626
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..100
Crossrefs
Programs
-
Mathematica
Select[Range[10^5], Mod[PowerMod[9, #, #] + 9, #] == 0 &] (* Giovanni Resta, Oct 23 2018 *)
Extensions
Missing a(2)-a(4) from Giovanni Resta, Oct 23 2018