%I #7 Sep 09 2019 11:26:17
%S 5,36,723
%N Indices of prime complementary Bell numbers (in absolute value).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ComplementaryBellNumber.html">Complementary Bell Number</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IntegerSequencePrimes.html">Integer Sequence Primes</a>
%t Select[Range[1000], PrimeQ[Abs[BellB[#, -1]]] &] (* _Vaclav Kotesovec_, Sep 09 2019 *)
%Y Cf. A000587, A118019.
%K nonn,more,bref
%O 1,1
%A _Eric W. Weisstein_, Apr 10 2006
|