The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A033180 Numbers n such that n! contains n as a string of digits. 3
 1, 2, 4, 20, 21, 26, 30, 33, 37, 39, 42, 44, 45, 48, 51, 52, 53, 56, 59, 60, 64, 65, 67, 68, 69, 72, 75, 78, 79, 80, 81, 82, 83, 84, 88, 91, 93, 94, 95, 96, 97, 98, 99, 116, 124, 134, 136, 140, 141, 149, 164, 165, 166, 170, 174, 180, 186, 188, 196, 198, 200, 202, 205 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS T. D. Noe, Table of n, a(n) for n=1..1000 FORMULA A067109(a(n)) > 0. [Reinhard Zumkeller, Aug 23 2008] MAPLE select(n->searchtext(convert(n, string), convert(n!, string))>0, [\$0..205]); # Paolo P. Lava, Jun 27 2018 MATHEMATICA Select[Range[210], MemberQ[Partition[IntegerDigits[#!], IntegerLength[#], 1], IntegerDigits[ #]]&] (* Harvey P. Dale, Dec 25 2011 *) Select[Range@500, StringContainsQ[ToString[#!], ToString[#]] &] (* Ivan N. Ianakiev, Jul 28 2016 *) Select[Range[210], SequenceCount[IntegerDigits[#!], IntegerDigits[#]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 14 2017 *) PROG (Haskell) a033180 n = a033180_list !! (n-1) a033180_list = filter ((> 0) . a067109) [1..] -- Reinhard Zumkeller, Aug 28 2014 CROSSREFS Sequence in context: A133521 A122158 A178223 * A215815 A295826 A201502 Adjacent sequences:  A033177 A033178 A033179 * A033181 A033182 A033183 KEYWORD nonn,base,easy,nice AUTHOR EXTENSIONS More terms from David W. Wilson STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 16 12:45 EDT 2021. Contains 345057 sequences. (Running on oeis4.)