A121036 Multiples of 16 containing a 16 in their decimal representation.

16, 160, 416, 816, 1168, 1216, 1600, 1616, 1632, 1648, 1664, 1680, 1696, 2016, 2160, 2416, 2816, 3168, 3216, 3616, 4016, 4160, 4416, 4816, 5168, 5216, 5616, 6016, 6160, 6416, 6816, 7168, 7216, 7616, 8016, 8160, 8416, 8816, 9168, 9216, 9616, 10016

Offset: 1

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

• nonn
• base
• easy

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Index entries for 10-automatic sequences.

Crossrefs

Cf. A121041, A008598, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121037, A121038, A121039, A121040.

Programs

Mathematica

seqMemberQ[lst_,seq_]:=MemberQ[Partition[lst,Length[seq],1],seq]
m16Q[n_]:=seqMemberQ[IntegerDigits[n],{1,6}]
Select[16Range[1000],m16Q]  (* Harvey P. Dale, Feb 26 2011 *)
Select[16Range[1000],SequenceCount[IntegerDigits[#],{1,6}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Apr 12 2016 *)

PARI

is(n)=if(n%16,return(0));n=eval(Vec(Str(n)));for(i=2,#n,if(n[i]==6&&n[i-1]==1,return(1)));0

Formula

a(n) ~ 16n. - Charles R Greathouse IV, Jul 16 2011

Extensions

Corrected by Harvey P. Dale, Feb 26 2011