editing
approved
editing
approved
Clear[dgphi]; dgphi[{a_, b_}]:=Which[a<b, Range[a, b-1], a>b, Range[a, b+1, -1], True, {a}]; dgphi/@ Partition[RealDigits[GoldenRatio, 10, 30][[1]], 2, 1]// Flatten (* Harvey P. Dale, Mar 21 2020 *)
approved
editing
editing
approved
Harvey P. Dale, <a href="/A232240/b232240.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
Clear[dgphi]; dgphi[{a_, b_}]:=Which[a<b, Range[a, b-1], a>b, Range[a, b+1, -1], True, {a}]; dgphi/@Partition[RealDigits[GoldenRatio, 10, 30][[1]], 2, 1]// Flatten (* Harvey P. Dale, Mar 21 2020 *)
approved
editing
editing
approved
A walk based on the digits of the golden ratio phi = (1+sqrt(5))/2 (A001622).
approved
editing
editing
approved
A walk based on the digits of golden ration ratio phi = (1+sqrt(5))/2 (A001622).
Phi = 1, .61803398874989...
approved
editing