|
Search: id:A005171
|
|
|
| A005171 |
|
0 if n is prime else 1. |
|
+0
11
|
|
| 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Number of orbits of length n in map whose periodic points are A023890. - Thomas Ward (t.ward(AT)uea.ac.uk)
Characteristic function of nonprimes A018252. - Jonathan Vos Post (jvospost2(AT)yahoo.com), Dec 30 2007
|
|
REFERENCES
|
Yash Puri and Thomas Ward, A dynamical property unique to the Lucas sequence, Fibonacci Quarterly, Volume 39, Number 5 (November 2001), pp. 398-402.
Douglas Hofstadter, Fluid Concepts and Creative Analogies: Computer Models of the Fundamental Mechanisms of Thought.
|
|
LINKS
|
Y. Puri and T. Ward, Arithmetic and growth of periodic orbits, J. Integer Seqs., Vol. 4 (2001), #01.2.1.
|
|
FORMULA
|
If b(n) is the n-th term of A023890, then a(n)=(1/n)* Sum_{ d divides n } \mu(d)a(n/d) E.g. a(6) = 1 since the 6th term of A023890 is 7 and the first term is 1.
a(n)=1-[(n-1)!^2 mod n], with n>=1. - Paolo P. Lava (ppl(AT)spl.at), Jun 11 2007
a(n) = NOT(A010051(n)) = 1 - A010051(n). - Jonathan Vos Post (jvospost2(AT)yahoo.com), Dec 30 2007
|
|
PROGRAM
|
(PARI) a(n)=if(n<1, 0, !isprime(n)) /* Michael Somos Jun 08 2005 */
|
|
CROSSREFS
|
Cf. A010051, 018252, A023890.
Sequence in context: A100810 A114591 A060476 this_sequence A076404 A010059 A011749
Adjacent sequences: A005168 A005169 A005170 this_sequence A005172 A005173 A005174
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Russ Cox (rsc(AT)swtch.com)
|
|
EXTENSIONS
|
More terms from Scott C. Lindhurst (ScottL(AT)alumni.princeton.edu)
|
|
|
Search completed in 0.002 seconds
|
