Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #33 Mar 21 2019 13:31:56
%S 0,6,31,48,22,599,1102,5280,4667,1753,48861,150336,223254,644487,
%T 7016773,9588848
%N a(n) is the smallest nonnegative integer such that a(n)! contains a string of exactly n consecutive 7's.
%e a(1) = 6 since 6! equals 720, which contains '7'.
%t A254452[n_] := Module[{m = 0},
%t If[n == 0, While[MemberQ[IntegerDigits[m!], 7], m++]; m,
%t t = Table[7, n];
%t While[! MemberQ[Split[IntegerDigits[m!]], t], m++]; m]];
%t Table[A254452[n], {n, 0, 14}] (* _Robert Price_, Mar 21 2019 *)
%Y Cf. A254042, A254447, A254448, A254449, A254500, A254501, A254716, A254717.
%K nonn,base,more
%O 0,2
%A _Martin Y. Champel_, Jan 31 2015
%E a(11), a(12) from _Jon E. Schoenfield_, Feb 21 2015
%E a(0) prepended by _Jon E. Schoenfield_, Mar 01 2015
%E a(13) from _Jon E. Schoenfield_, Mar 06 2015
%E a(14)-a(15) from _Bert Dobbelaere_, Oct 29 2018