%I #12 Jul 22 2022 17:47:34
%S 23,59,95,131,143,167,203,239,275,311,347,359,383,419,455,491,527,563,
%T 575,599,635,671,707,743,779,791,815,863,887,923,959,995,1007,1031,
%U 1067,1103,1139,1175,1211,1223,1247,1283,1319,1355,1391,1427,1439,1463,1499
%N Numbers n such that string 3,5 occurs in the base 6 representation of n but not of n+1.
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "35", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 20 2011 *)
%Y Cf. A044125.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|