|
%I #19 Dec 01 2016 06:06:54
%S 0,1,2,1,0,1,5,1,8,5,5,1,5,11,5,1,5,1,5,5,20,3,5,1,0,25,26,9,5,25,5,1,
%T 26,25,10,1,5,25,8,25,5,1,5,9,35,25,5,1,19,25,23,1,5,1,45,25,11,25,5,
%U 25,5,25,62,1,5,49,5,13,56,65,5,1,5,25,50,17,3,25,5,65,80,25,5,1,65
%N a(n) = 5^n mod n.
%H Harry J. Smith and Seiichi Manyama, <a href="/A066603/b066603.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Harry J. Smith)
%e a(7) = 5 as 5^7 = 78125 = 7*11160 + 5.
%p seq(irem(5^n,n),n=1..85); # _Zerinvary Lajos_, Apr 20 2008
%t Table[PowerMod[5, n, n], {n, 85} ]
%o (PARI) { for (n=1, 1000, write("b066603.txt", n, " ", 5^n % n) ) } \\ _Harry J. Smith_, Mar 09 2010
%Y Cf. k^n mod n: A015910 (k=2), A066601 (k=3), A066602 (k=4), this sequence (k=5), A066604 (k=6), A066438 (k=7), A066439 (k=8), A066440 (k=9), A056969 (k=10), A066441 (k=11), A066442 (k=12), A116609 (k=13).
%K easy,nonn
%O 1,3
%A _Amarnath Murthy_, Dec 22 2001
%E More terms from _Robert G. Wilson v_, Dec 27 2001
|
