|
|
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
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
seqMemberQ[lst_, seq_]:=MemberQ[Partition[lst, Length[seq], 1], seq]
m16Q[n_]:=seqMemberQ[IntegerDigits[n], {1, 6}]
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.
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|