login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A167968 Signature sequence of phi^4 = 0.14589803375032..., where phi is the golden ratio minus 1 (0.61803398874989...). 3
1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,8

REFERENCES

Clark Kimberling, "Fractal Sequences and Interspersions," Ars Combinatoria 45 (1997) 157-168.

LINKS

Table of n, a(n) for n=1..105.

MATHEMATICA

terms = 105; m = Ceiling[Sqrt[terms]]; s0 = {}; While[s = (Table[i + j*(GoldenRatio-1)^4, {i, 1, m}, {j, 1, m}] // Flatten // SortBy[#, N]&)[[1 ;; terms]] /. GoldenRatio -> 1; s != s0, s0 = s; m = 2m]; s (* Jean-Fran├žois Alcover, Jan 08 2017 *)

CROSSREFS

Cf. A084531, A084532, A167972.

Sequence in context: A287867 A023126 A160985 * A161239 A161063 A161267

Adjacent sequences:  A167965 A167966 A167967 * A167969 A167970 A167971

KEYWORD

nonn

AUTHOR

Casey Mongoven, Nov 15 2009

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 16 19:57 EST 2018. Contains 318188 sequences. (Running on oeis4.)