A103234 - OEIS (original) (raw)

Position[EulerE[Range[600]], _?PrimeQ] // Flatten

Select[Range[600], PrimeQ @* EulerE] (* Eric W. Weisstein, Apr 12 2024 *)