|
| |
|
|
A045800
|
|
0-ish numbers (end in 01, 07, 43, 49).
|
|
10
| |
|
|
1, 7, 43, 49, 101, 107, 143, 149, 201, 207, 243, 249, 301, 307, 343, 349, 401, 407, 443, 449, 501, 507, 543, 549, 601, 607, 643, 649, 701, 707, 743, 749, 801, 807, 843, 849, 901, 907, 943, 949, 1001, 1007, 1043, 1049, 1101, 1107, 1143, 1149, 1201, 1207
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
| Empirical G.f.: x*(1+6*x+36*x^2+6*x^3+51*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
|
|
|
PROG
| (Haskell)
import Data.List (findIndices)
a045800 n = a045800_list !! (n-1)
a045800_list = findIndices (`elem` [1, 7, 43, 49]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012
|
|
|
CROSSREFS
| Cf. A045801-A045809.
Cf. A045572, A045797, A045798.
Sequence in context: A043064 A175159 A173828 * A159254 A062336 A085704
Adjacent sequences: A045797 A045798 A045799 * A045801 A045802 A045803
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| J. H. Conway.
|
|
|
EXTENSIONS
| More terms from Erich Friedman (erich.friedman(AT)stetson.edu).
|
| |
|
|
