|
| |
|
|
A045801
|
|
1-ish numbers (end in 11, 39, 73, 77).
|
|
2
| |
|
|
11, 39, 73, 77, 111, 139, 173, 177, 211, 239, 273, 277, 311, 339, 373, 377, 411, 439, 473, 477, 511, 539, 573, 577, 611, 639, 673, 677, 711, 739, 773, 777, 811, 839, 873, 877, 911, 939, 973, 977, 1011, 1039, 1073, 1077, 1111, 1139, 1173, 1177, 1211, 1239
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
| Empirical G.f.: x*(11+28*x+34*x^2+4*x^3+23*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
|
|
|
PROG
| (Haskell)
import Data.List (findIndices)
a045801 n = a045801_list !! (n-1)
a045801_list = findIndices (`elem` [11, 39, 73, 77]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012
|
|
|
CROSSREFS
| Cf. A045800-A045809.
Cf. A045572, A045797, A045798.
Sequence in context: A024202 A133258 A103738 * A162261 A004188 A163634
Adjacent sequences: A045798 A045799 A045800 * A045802 A045803 A045804
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| J. H. Conway.
|
|
|
EXTENSIONS
| More terms from Erich Friedman (erich.friedman(AT)stetson.edu).
|
| |
|
|
