|
%I #12 Jun 16 2019 12:02:26
%S 1,3,13,14,15,16,17,18,73,80,87,94,101,108,433,439,445,451,457,463,
%T 470,476,482,488,494,500,507,513,519,525,531,537,544,550,556,562,568,
%U 574,581,587,593,599,605,611,618,624,630,636,642
%N a(n)=(s(n)+4)/6, where s(n)=n-th base 6 palindrome that starts with 2.
%H Harvey P. Dale, <a href="/A043055/b043055.txt">Table of n, a(n) for n = 1..2000</a>
%t b6pQ[n_]:=Module[{idn6=IntegerDigits[n,6]},idn6==Reverse[idn6]&&idn6[[1]] == 2]; (#+4)/6&/@Select[Range[10000],b6pQ] (* _Harvey P. Dale_, Jun 16 2019 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
