1,3

Table of n, a(n) for n=1..70.

b11Q[n_]:=Module[{idn11=DigitCount[n, 11]}, idn11[[2]]==idn11[[10]]]; Select[Range[0, 100], b11Q] (* Harvey P. Dale, Oct 19 2011 *)

Sequence in context: A026469 A258187 A039237 * A298111 A299534 A026454

Adjacent sequences: A039178 A039179 A039180 * A039182 A039183 A039184

nonn,base,easy

Olivier Gérard

approved