|
%I #13 Apr 23 2020 13:50:57
%S 20,56,92,120,128,164,200,236,272,308,336,344,380,416,452,488,524,552,
%T 560,596,632,668,704,720,768,776,812,848,884,920,956,984,992,1028,
%U 1064,1100,1136,1172,1200,1208,1244,1280,1316,1352,1388,1416,1424,1460,1496
%N Numbers n such that string 3,2 occurs in the base 6 representation of n but not of n-1.
%H Harvey P. Dale, <a href="/A044122/b044122.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "32", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# - 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 20 2011 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{3,2}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 23 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
