OFFSET
1,1
MATHEMATICA
Select[Range[2, 10000], Divisible[Abs[EulerE[2*#]] - 1, #^2] &] (* Amiram Eldar, Jun 03 2017 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Benoit Cloitre, Apr 06 2003
EXTENSIONS
More terms from Hans Havermann, Apr 07 2003
STATUS
approved