|
%I #15 Jun 03 2017 05:49:06
%S 2,17,37,1153,1303
%N Numbers n such that the n-th Euler number (A000364) == 1 (mod n^2).
%t Select[Range[2, 10000], Divisible[Abs[EulerE[2*#]] - 1, #^2] &] (* _Amiram Eldar_, Jun 03 2017 *)
%Y Cf. A000364, A081730.
%K nonn,more
%O 1,1
%A _Benoit Cloitre_, Apr 06 2003
%E More terms from _Hans Havermann_, Apr 07 2003
|
