{ m=0; for (n=0, 39, \\ r = row n of A127824 if (n==0, r = [1], r = setunion(2*r, apply(i -> (i-1)/3, select(j -> j%6==4 && j>4, r))); ); for (k=1, #r, if ((k>1 && r[k-1]==r[k]-1) || (k<#r && r[k+1]==r[k]+1), print (m++ " " r[k]); ); ); ); } quit