|
| |
|
|
A045807
|
|
7-ish numbers (end in 53, 71, 79, 97).
|
|
1
|
|
|
|
53, 71, 79, 97, 153, 171, 179, 197, 253, 271, 279, 297, 353, 371, 379, 397, 453, 471, 479, 497, 553, 571, 579, 597, 653, 671, 679, 697, 753, 771, 779, 797, 853, 871, 879, 897, 953, 971, 979, 997, 1053, 1071, 1079, 1097, 1153, 1171, 1179, 1197, 1253, 1271
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
|
Empirical G.f.: x*(53+18*x+8*x^2+18*x^3+3*x^4)/(1-x-x^4+x^5). [Colin Barker, Jan 23 2012]
|
|
|
PROG
|
(Haskell)
import Data.List (findIndices)
a045807 n = a045807_list !! (n-1)
a045807_list = findIndices (`elem` [53, 71, 79, 97]) $ cycle [0..99]
-- Reinhard Zumkeller, Jan 23 2012
|
|
|
CROSSREFS
|
Cf. A045800-A045809.
Cf. A045572, A045797, A045798.
Sequence in context: A223091 A301479 A244187 * A007644 A136073 A133187
Adjacent sequences: A045804 A045805 A045806 * A045808 A045809 A045810
|
|
|
KEYWORD
|
nonn,base,easy
|
|
|
AUTHOR
|
J. H. Conway.
|
|
|
EXTENSIONS
|
More terms from Erich Friedman.
|
|
|
STATUS
|
approved
|
| |
|
|
