|
|
A355137
|
|
Indices of primes in the sequence A000296.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The next term, if it exists, is > 20000.
|
|
LINKS
|
|
|
EXAMPLE
|
5 is in the sequence because A000296(5) = 11 is prime.
|
|
MATHEMATICA
|
s = 1; A000296 = Table[s = BellB[n] - s, {n, 0, 1000}]; Select[Range[1000], PrimeQ[A000296[[#]]]&]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|