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!)
 A316341 Characteristic function of the factorials 1!, 2!, 3!, ... 23
 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0 COMMENTS A word that is neither morphic nor recurrent. LINKS Antti Karttunen, Table of n, a(n) for n = 0..65537 Jean-Paul Allouche, Julien Cassaigne, Jeffrey Shallit, Luca Q. Zamboni, A Taxonomy of Morphic Sequences, arXiv preprint arXiv:1711.10807 [cs.FL], Nov 29 2017. FORMULA a(n) = 1 if A034968(n) == 1, 0 otherwise. - Antti Karttunen, Nov 07 2018 MATHEMATICA CoefficientList[Sum[x^k!, {k, 1, 5}], x] (* Jean-François Alcover, Nov 02 2018 *) PROG (PARI) A034968(n) = { my(s=0, b=2, d); while(n, d = (n%b); s += d; n = (n-d)/b; b++); (s); }; A316341(n) = (1==A034968(n)); \\ Antti Karttunen, Nov 07 2018 first(n) = { my(res = vector(n), i = t = 1); while(t < n, res[t+1]=1; i++; t*=i); res; }; \\ David A. Corneth, Nov 07 2018 CROSSREFS Equals A012245 prefixed by 0. Sequences mentioned in the Allouche et al. "Taxonomy" paper, listed by example number: 1: A003849, 2: A010060, 3: A010056, 4: A020985 and A020987, 5: A191818, 6: A316340 and A273129, 18: A316341, 19: A030302, 20: A063438, 21: A316342, 22: A316343, 23: A003849 minus its first term, 24: A316344, 25: A316345 and A316824, 26: A020985 and A020987, 27: A316825, 28: A159689, 29: A049320, 30: A003849, 31: A316826, 32: A316827, 33: A316828, 34: A316344, 35: A043529, 36: A316829, 37: A010060. Cf. also A000142, A034968. Sequence in context: A288736 A270803 A030301 * A284901 A071981 A280910 Adjacent sequences:  A316338 A316339 A316340 * A316342 A316343 A316344 KEYWORD nonn AUTHOR N. J. A. Sloane, Jul 14 2018 EXTENSIONS Data section extended up to a(120) by Antti Karttunen, Nov 07 2018 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 March 28 07:59 EDT 2020. Contains 333079 sequences. (Running on oeis4.)