A015891 Numbers k such that k | 5^k + 5.
1, 2, 5, 6, 10, 30, 70, 1565, 2806, 3126, 51670, 58290, 214405, 285286, 378258, 1854766, 2170486, 2222122, 2247610, 3463230, 4147522, 5942526, 9381126, 14818486, 15743890, 20162858, 34087054, 34838686, 38742166, 71067430
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..100
Crossrefs
Programs
-
Mathematica
Select[Range[1000000], IntegerQ[(PowerMod[5,#,# ]+5)/# ]&] (* Alexander Adamchuk *)
Extensions
Corrected by Alexander Adamchuk, Nov 04 2006