login
A285526
Terms of A285524 that mark the beginning of four consecutive equal values.
2
4, 12, 20, 27, 35, 43, 51, 59, 67, 74, 82, 90, 98, 106, 113, 121, 129, 137, 145, 153, 160, 168, 176, 184, 192, 200, 207, 215, 223, 231, 239, 246, 254, 262, 270, 278, 286, 293, 301, 309, 317
OFFSET
1,1
PROG
(PARI) half(n) = if (n % 2, n\2, n/2 - 1);
a285524(n) = {v = vector(half(n), d, d!*(d + 1)!*(2^(n-2*d-1)*stirling(n-d, d+1, 2))); w = vecsort(v, , 1); w[#w]; }
lista(nn) = {v = vector(nn, n, a285524(n+3)); for (k=1, #v-4, if ((v[k] == v[k+1]) && (v[k] == v[k+2]) && (v[k] == v[k+3]), print1(v[k], ", ")); ); }
CROSSREFS
Sequence in context: A273277 A100717 A365883 * A321466 A227226 A242118
KEYWORD
nonn,more
AUTHOR
Michel Marcus, Apr 20 2017
STATUS
approved