evidentely yours

[vdmcc]

hi,
I suppose it is (somehow) evident that :

b=Table[Mod[2^i  ,i],{i,128}]

{0,0,2,0,2,4,2,0,8,4,2,4,2,4,8,0,2,10,2,16,8,4,2,16,7,4,26,16,2,4,2,0,8,4,18
,
  28,2,4,8,16,2,22,2,16,17,4,2,16,30,24,8,16,2,28,43,32,8,4,2,16,2,4,8,0,32,
  64,2,16,8,44,2,64,2,4,68,16,18,64,2,16,80,4,2,64,32,4,8,80,2,64,37,16,8,4,

13,64,2,18,17,76,2,64,2,48,92,4,2,28,2,34,8,16,2,64,78,16,44,4,60,16,112,4,
  8,16,57,64,2,0}
----------------------------------------------------------------------------
----
%I A015910
%S A015910
0,0,2,0,2,4,2,0,8,4,2,4,2,4,8,0,2,10,2,16,8,4,2,16,7,4,26,16,2,4,2,
%T A015910
0,8,4,18,28,2,4,8,16,2,22,2,16,17,4,2,16,30,24,8,16,2,28,43,32,8,4,
%U A015910 2,16,2,4,8,0,32,64,2,16,8,44,2,64,2,4,68,16,18,64,2,16,80,4,2,64
%N A015910 2^n (mod n).%O A015910 1,3%K A015910 nonn
%A A015910 Robert G. Wilson v (rgwv at southwind.net)
----------------------------------------------------------------------------
----


a=Table[Mod[2^i-1  ,i],{i,128}]+1

{1,2,2,4,2,4,2,8,8,4,2,4,2,4,8,16,2,10,2,16,8,4,2,16,7,4,26,16,2,4,2,32,8,4,

18,28,2,4,8,16,2,22,2,16,17,4,2,16,30,24,8,16,2,28,43,32,8,4,2,16,2,4,8,64,

32,64,2,16,8,44,2,64,2,4,68,16,18,64,2,16,80,4,2,64,32,4,8,80,2,64,37,16,8,

4,13,64,2,18,17,76,2,64,2,48,92,4,2,28,2,34,8,16,2,64,78,16,44,4,60,16,112,
  4,8,16,57,64,2,128}

a-b

{1,2,0,4,0,0,0,8,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0
,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128}


w.meeussen.vdmcc at vandemoortele.be
tel  +32 (0) 51 33 21 11
fax +32 (0) 51 33 21 75