A121024 Multiples of 4 containing a 4 in their decimal representation.

4, 24, 40, 44, 48, 64, 84, 104, 124, 140, 144, 148, 164, 184, 204, 224, 240, 244, 248, 264, 284, 304, 324, 340, 344, 348, 364, 384, 400, 404, 408, 412, 416, 420, 424, 428, 432, 436, 440, 444, 448, 452, 456, 460, 464, 468, 472, 476, 480, 484, 488, 492, 496

Offset

1,1

Comments

Intersection of A008586 and A011534.

Links

Table of n, a(n) for n=1..53.

Index entries for 10-automatic sequences.

Formula

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

Mathematica

Select[4Range[150], DigitCount[#, 10, 4]>0&] (* Harvey P. Dale, Jun 11 2011 *)

Prog

(PARI) is(n)=if(n%4, return(0)); n=eval(Vec(Str(n))); for(i=1, #n, if(n[i]==4, return(1))); 0 \\ Charles R Greathouse IV, Jul 16 2011

Crossrefs

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

Sequence in context: A338786 A363218 A048188 * A120622 A031117 A174178

Adjacent sequences: A121021 A121022 A121023 * A121025 A121026 A121027

Keyword

nonn,base,easy

Author

Reinhard Zumkeller, Jul 21 2006

Extensions

Typo in comment fixed by Reinhard Zumkeller, May 01 2011

Status

approved