A127102 Numbers k such that k^2 divides 8^k-1.
1, 7, 889, 2359, 299593, 2033143, 13549249, 42931441, 100170217, 310935751, 685169191, 3606045247, 4566096913, 5452293007, 6620620783, 12721617559, 30987132463, 65576560063, 92349997537, 104785348087, 457967746369
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Select[Range[20000], IntegerQ[(PowerMod[8, #, #^2 ]-1)/#^2 ]&]
-
PARI
is(n)=Mod(8,n^2)^n==1 \\ M. F. Hasler, Nov 21 2018
Extensions
More terms from Ryan Propper, Jan 05 2007
Terms a(12) onward from Max Alekseyev, May 06 2010
Comments