%I #14 Aug 01 2021 15:43:14
%S 1,4,0,5,4,4,2,8,0,4,16,11,14,16,2,10,5,8,4,0,17,30,23,4,24,20,16,4,
%T 12,32,6,16,8,14,26,40,22,13,16,29,22,16,8,32,0,2,4,52,35,64,40,28,23,
%U 20,30,4
%N 2^(composite(n)-4) mod composite(n).
%H Harvey P. Dale, <a href="/A175621/b175621.txt">Table of n, a(n) for n = 1..1000</a>
%p A175621 := proc(n) local c ; c := A002808(n) ; (2^(c-4)) mod c ; end proc:
%p seq(A175621(n),n=1..80) ;
%t Table[PowerMod[2,n-4,n],{n,Select[Range[100],CompositeQ]}] (* _Harvey P. Dale_, Aug 01 2021 *)
%Y Cf. A000079, A002808.
%K nonn,less
%O 1,2
%A _Juri-Stepan Gerasimov_, Dec 04 2010
%E Corrected by _D. S. McNeil_, Dec 04 2010
|