A372525 Composite numbers k that divide A000296(k) + (-1)^k.
6, 1991, 5459, 17391
Offset: 1
Links
- Grzegorz Serafin, Backward Touchard congruence, Bull. Belg. Math. Soc. Simon Stevin, Vol. 28, No. 4 (2022), pp. 603-614; arXiv preprint, arXiv:2110.06129 [math.NT], 2021.
- Zhi-Wei Sun and Don Zagier, On a curious property of Bell numbers, Bulletin of the Australian Mathematical Society, Vol. 84, No. 1 (2011), pp. 153-158.
Programs
-
Mathematica
f[k_] := f[k] = Sum[Binomial[k-1, i] * f[k-i-1], {i, 1, k-1}]; f[0] = 1; Select[Range[2000], CompositeQ[#] && Divisible[f[#] + (-1)^# , #] &]
Comments