A121036 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Index entries for 10-automatic sequences.

FORMULA

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

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 *)

PROG

(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

CROSSREFS

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

Sequence in context: A041005 A180798 A144453 * A224058 A073394 A038846

Adjacent sequences: A121033 A121034 A121035 * A121037 A121038 A121039

KEYWORD

nonn,base,easy

AUTHOR

Reinhard Zumkeller, Jul 21 2006

EXTENSIONS

Corrected by Harvey P. Dale, Feb 26 2011

STATUS

approved