|
%I #8 Mar 03 2018 12:02:00
%S 0,4,7,8,9,10,11,12,25,13,26,1,27,2,15,28,3,16,29,4,42,17,30,5,43,18,
%T 56,31,6,44,19,57,95,32,7,45,83,20,58,134,33,8,46,84,122,21,97,135,34,
%U 72,9,47,85,123,22,60,98,136,35,73,10,149,48,86,124,23,61,200,99,36,175,74
%N 12^a(n) is smallest power of 12 beginning with n.
%H D. Mondot, <a href="/A180692/b180692.txt">Table of n, a(n) for n=1..32699</a>
%t With[{p=12^Range[0,300]},Flatten[Table[Position[p,_?(Take[ IntegerDigits[ #], IntegerLength[n]]==IntegerDigits[n]&),1,1],{n,80}]]]-1//Quiet (* _Harvey P. Dale_, Mar 03 2018 *)
%Y Cf. A180690, A180691, A180694
%K base,nonn
%O 1,2
%A _Daniel Mondot_, Sep 17 2010
|
