|
| |
|
|
A045802
|
|
2-ish numbers (end in 03, 21, 29, 47).
|
|
1
| |
|
|
3, 21, 29, 47, 103, 121, 129, 147, 203, 221, 229, 247, 303, 321, 329, 347, 403, 421, 429, 447, 503, 521, 529, 547, 603, 621, 629, 647, 703, 721, 729, 747, 803, 821, 829, 847, 903, 921, 929, 947, 1003, 1021, 1029, 1047, 1103, 1121, 1129, 1147, 1203, 1221
(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*(3+18*x+8*x^2+18*x^3+53*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
|
|
|
PROG
| (Haskell)
import Data.List (findIndices)
a045802 n = a045802_list !! (n-1)
a045802_list = findIndices (`elem` [3, 21, 29, 47]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012
|
|
|
CROSSREFS
| Cf. A045800-A045809.
Cf. A045572, A045797, A045798.
Sequence in context: A074217 A062219 A091103 * A006133 A039766 A072849
Adjacent sequences: A045799 A045800 A045801 * A045803 A045804 A045805
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| J. H. Conway.
|
|
|
EXTENSIONS
| More terms from Erich Friedman (erich.friedman(AT)stetson.edu).
|
| |
|
|
