OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) ~ 12n. - Charles R Greathouse IV, Nov 02 2022
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
-- Reinhard Zumkeller, Dec 12 2012
(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
KEYWORD
AUTHOR
Reinhard Zumkeller, Jul 21 2006
EXTENSIONS
Data fixed by Reinhard Zumkeller, Dec 12 2012
STATUS
approved