|
%I
%S 25,61,97,133,150,169,205,241,277,313,349,366,385,421,457,493,529,565,
%T 582,601,637,673,709,745,781,798,817,853,889,900,961,997,1014,1033,
%U 1069,1105,1141,1177,1213,1230,1249,1285,1321,1357,1393,1429,1446,1465,1501
%N Numbers n such that string 4,1 occurs in the base 6 representation of n but not of n-1.
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "41", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# - 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 20 2011 *)
%Y Cf. A044508.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
