, k = 0; While[k < n, k = Total[d]; d = Rest[AppendTo[d, k]]]; k == n]]; seq = {}; Do[ If[seqQ[n], AppendTo[seq, n]], {n, 2, 10^6}]; seq (* _Amiram Eldar

User: , k = 0; While[k < n, k = Total[d]; d = Rest[AppendTo[d, k]]]; k == n]]; seq = {}; Do[ If[seqQ[n], AppendTo[seq, n]], {n, 2, 10^6}]; seq (* _Amiram Eldar

, k = 0; While[k < n, k = Total[d]; d = Rest[AppendTo[d, k]]]; k == n]]; seq = {}; Do[ If[seqQ[n], AppendTo[seq, n]], {n, 2, 10^6}]; seq (* _Amiram Eldar's wiki page.

, k = 0; While[k < n, k = Total[d]; d = Rest[AppendTo[d, k]]]; k == n]]; seq = {}; Do[ If[seqQ[n], AppendTo[seq, n]], {n, 2, 10^6}]; seq (* _Amiram Eldar has authored 0 sequences.

cp's OEIS Frontend

User: , k = 0; While[k < n, k = Total[d]; d = Rest[AppendTo[d, k]]]; k == n]]; seq = {}; Do[ If[seqQ[n], AppendTo[seq, n]], {n, 2, 10^6}]; seq (* _Amiram Eldar