This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A121036 Multiples of 16 containing a 16 in their decimal representation. 34
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 19 06:30 EDT 2019. Contains 322237 sequences. (Running on oeis4.)