OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
FORMULA
Empirical G.f.: x*(51+6*x+36*x^2+6*x^3+x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
MATHEMATICA
Select[Range[50, 1500], MemberQ[{51, 57, 93, 99}, Mod[#, 100]]&] (* Harvey P. Dale, Nov 14 2022 *)
PROG
(Haskell)
import Data.List (findIndices)
a045805 n = a045805_list !! (n-1)
a045805_list = findIndices (`elem` [51, 57, 93, 99]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman.
STATUS
approved