|
%I #11 Aug 27 2021 01:45:23
%S 53,77,134,158,215,239,296,320,377,401,458,485,539,563,620,644,701,
%T 725,782,806,863,887,944,968,1025,1049,1106,1130,1187,1214,1268,1292,
%U 1349,1373,1430,1454,1511,1535,1592,1616,1673,1697
%N Numbers k such that 5 and 8 occur juxtaposed in the base-9 representation of k but not of k+1.
%t j58Q[n_]:=Module[{idn=IntegerDigits[n,9]},If[SequenceCount[idn,{5,8}]+ SequenceCount[idn,{8,5}]>0,1,0]]; Transpose[SequencePosition[ Array[ j58Q,1700],{1,0}]][[1]] (* The program uses the SequenceCount and SequencePosition functions from Mathematica version 10 *) (* _Harvey P. Dale_, Sep 09 2015 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
