|
|
A121032
|
|
Multiples of 12 containing a 12 in their decimal representation.
|
|
35
|
|
|
12, 120, 312, 612, 912, 1128, 1200, 1212, 1224, 1236, 1248, 1260, 1272, 1284, 1296, 1512, 1812, 2112, 2124, 2412, 2712, 3012, 3120, 3312, 3612, 3912, 4128, 4212, 4512, 4812, 5112, 5124, 5412, 5712, 6012, 6120, 6312, 6612, 6912, 7128, 7212, 7512, 7812
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[12*Range[700], SequenceCount[IntegerDigits[#], {1, 2}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 25 2017 *)
|
|
PROG
|
(Haskell)
import Data.List (isInfixOf)
a121032 n = a121032_list !! (n-1)
a121032_list = filter ((isInfixOf "12") . show) a008594_list
(PARI) is(n)=if(n%12, return(0)); while(n>11, if(n%100==12, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017
|
|
CROSSREFS
|
Cf. A121041, A011531, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040.
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|