A275868 Numbers n tracing out a spiral path in a pentagonal Z module thereby creating a ten-fold twin pattern with relations to quasicrystals.
0, 1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 4, 5, 6, 5, 6, 5, 6, 7, 6, 7, 6, 7, 6, 7, 8, 7, 8, 7, 8, 7, 8, 9, 8, 9, 8, 9, 8, 9, 8, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3, 4, 3
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
- W. Hornfeck, R. Kobold, M. Kolbe, D. Herlach, Quasicrystal nucleation in an intermetallic glass-former, arXiv:1410.2952 [cond-mat.mtrl-sci], 2014.
- M. Quiquandon, D. Gratias, A. Sirindil, R. Portier, Merohedral twins revisited: quinary twins and beyond, Acta Cryst. A, 72 (2016), 55-61.
Programs
-
Mathematica
Table[Mod[Floor[Sqrt[2*(i-1)]]+If[MemberQ[Table[2*j+Ceiling[2*Sqrt[j]],{j,1,i}],i],1,0],10],{i,1,100}]
Comments