|
%I #11 Aug 26 2021 03:14:53
%S 39,60,103,124,167,188,231,252,295,319,359,380,423,444,487,508,551,
%T 572,615,636,679,700,743,764,807,831,871,892,935,956,999,1020,1063,
%U 1084,1127,1148,1191,1212,1255,1276,1319,1343,1383
%N Numbers k such that 4 and 7 occur juxtaposed in the base-8 representation of k but not of k+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,7}]>0||SequenceCount[IntegerDigits[n,8],{7,4}]>0,1,0],{n,1500}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 08 2016 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
