%I #16 Nov 04 2013 12:19:17
%S 23,27,61,89,123,127,161,189,223,227,261,289,323,327,361,389,423,427,
%T 461,489,523,527,561,589,623,627,661,689,723,727,761,789,823,827,861,
%U 889,923,927,961,989,1023,1027,1061,1089,1123,1127,1161,1189,1223,1227
%N 6-ish numbers (end in 23, 27, 61, 89).
%H Reinhard Zumkeller, <a href="/A045806/b045806.txt">Table of n, a(n) for n = 1..1000</a>
%F Empirical G.f.: x*(23+4*x+34*x^2+28*x^3+11*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
%o (Haskell)
%o import Data.List (findIndices)
%o a045806 n = a045806_list !! (n-1)
%o a045806_list = findIndices (`elem` [23,27,61,89]) $ cycle [0..99]
%o -- _Reinhard Zumkeller_, Jan 23 2012
%Y Cf. A045800-A045809.
%Y Cf. A045572, A045797, A045798.
%K nonn,base,easy
%O 1,1
%A _J. H. Conway_.
%E More terms from _Erich Friedman_.
|