A121032 Multiples of 12 containing a 12 in their decimal representation.
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
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- Index entries for 10-automatic sequences.
Crossrefs
Programs
-
Haskell
import Data.List (isInfixOf) a121032 n = a121032_list !! (n-1) a121032_list = filter ((isInfixOf "12") . show) a008594_list -- Reinhard Zumkeller, Dec 12 2012
-
Mathematica
Select[12*Range[700],SequenceCount[IntegerDigits[#],{1,2}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 25 2017 *)
-
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
Formula
a(n) ~ 12n. - Charles R Greathouse IV, Nov 02 2022
Extensions
Data fixed by Reinhard Zumkeller, Dec 12 2012