Location via proxy:   [ UP ]   [Report a bug]   [Manage cookies]    No cookies    No scripts    No ads    No referrer    Show this form

login

The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!) A087742 a(n) = 1+Abs[Prime[A005185[n]]-A005185[Prime[n]]]. 0 2, 1, 1, 1, 2, 2, 2, 1, 2, 4, 8, 2, 5, 6, 6, 4, 4, 2, 5, 1, 4, 5, 7, 8, 3, 6, 2, 2, 8, 2, 4, 5, 13, 7, 8, 9, 13, 6, 15, 9, 12, 11, 8, 18, 6, 22, 26, 2, 24, 24, 8, 14, 32, 17, 31, 29, 21, 23, 13, 21, 18, 6, 12, 29, 28, 4, 23, 39, 11, 3, 21, 17, 14, 24, 20, 26, 20, 57, 10, 20, 23, 28, 40, 36, 30 (list; graph; refs; listen; history; text; internal format) OFFSET 1,1 COMMENTS A "commutator" between the Hofstadter A005185 sequence and the primes. LINKS Table of n, a(n) for n=1..85. MATHEMATICA Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 digits=200 a=Table[1+Abs[Prime[Hofstadter[n]]-Hofstadter[Prime[n]]], {n, 1, digits}] CROSSREFS Cf. A000040, A005185. Sequence in context: A256122 A087048 A109700 * A340996 A072530 A184341 Adjacent sequences: A087739 A087740 A087741 * A087743 A087744 A087745 KEYWORD nonn AUTHOR Roger L. Bagula, Oct 01 2003 EXTENSIONS Edited by N. J. A. Sloane, Nov 08 2005 STATUS approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 27 19:37 EDT 2024. Contains 375471 sequences. (Running on oeis4.)