|
%I #6 Mar 30 2012 17:22:57
%S 3,5,3,5,7,5,9,5,7,5,3,3,3,5,5,5,3,5,3,3,5,3,3,5,3,5,7,7,3,3,5,5,3,3,
%T 3,5,5,7,7,5,9,7,3,3,3,15,7,3,3,3,3,5,3,7,3,5,5,7,3,3,5,3,5,3,3,3,5,5,
%U 5,5,5,5,7,5,5,3,5,3,3,3,5,3,13,3,3,3,3,13,3,3,5,5,3,7,3,5,5,5
%N Least number k > 0 that makes (k+1)^n (mod k^n) a positive even number.
%C The value of (k+1)^n (mod k^n) is in A188699.
%t Table[k = 1; While[r = Mod[(k + 1)^n, k^n]; r == 0 || OddQ[r], k++]; k, {n, 3, 100}]
%K nonn
%O 3,1
%A _T. D. Noe_, Apr 12 2011
|
