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

Author

J. H. Conway

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A045800-A045809.

Cf. A045572, A045797, A045798.

Programs

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

Mathematica

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

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

Extensions

More terms from Erich Friedman