A045808 8-ish numbers (end in 67, 69, 81, 83).

67, 69, 81, 83, 167, 169, 181, 183, 267, 269, 281, 283, 367, 369, 381, 383, 467, 469, 481, 483, 567, 569, 581, 583, 667, 669, 681, 683, 767, 769, 781, 783, 867, 869, 881, 883, 967, 969, 981, 983, 1067, 1069, 1081, 1083, 1167, 1169, 1181, 1183, 1267, 1269

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Formula

Empirical G.f.: x*(67+2*x+12*x^2+2*x^3+17*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]

Mathematica

Select[Range[1300], MemberQ[{67, 69, 81, 83}, Mod[#, 100]]&] (* Harvey P. Dale, Jul 03 2013 *)

Prog

(Haskell)
import Data.List (findIndices)
a045808 n = a045808_list !! (n-1)
a045808_list = findIndices (`elem` [67, 69, 81, 83]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012

Crossrefs

Cf. A045800-A045809.

Cf. A045572, A045797, A045798.

Sequence in context: A196251 A246783 A169936 * A073523 A295803 A033243

Adjacent sequences: A045805 A045806 A045807 * A045809 A045810 A045811

Keyword

nonn,base,easy

Author

J. H. Conway.

Extensions

More terms from Erich Friedman.

Status

approved