|
| |
|
|
A121036
|
|
Multiples of 16 containing a 16 in their decimal representation.
|
|
20
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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] (* From Harvey P. Dale, Feb 26 2011 *)
|
|
|
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 * A073394 A038846 A079767
Adjacent sequences: A121033 A121034 A121035 * A121037 A121038 A121039
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 21 2006
|
|
|
EXTENSIONS
| Corrected by Harvey P. Dale, Feb 26 2011
|
| |
|
|
