cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A274452 Products of distinct Narayana's cow numbers (A000930).

This page as a plain text file.
%I A274452 #10 Feb 08 2020 11:31:04
%S A274452 2,3,4,6,8,9,12,13,18,19,24,26,27,28,36,38,39,41,48,52,54,56,57,60,72,
%T A274452 76,78,82,84,88,104,108,112,114,117,120,123,129,144,152,156,162,164,
%U A274452 168,171,176,180,189,216,224,228,234,240,246,247,252,258,264,277
%N A274452 Products of distinct Narayana's cow numbers (A000930).
%H A274452 Clark Kimberling, <a href="/A274452/b274452.txt">Table of n, a(n) for n = 1..10000</a>
%e A274452 The Narayana's cow numbers numbers are 1, 2, 3, 4, 6, 9, 13, 19, 28, ..., so that the sequence of all products of distinct members, in increasing order, is (2, 3, 4, 6, 8, 9, 12, 13, 18, 19, 24, ...).
%t A274452 r[1] := 1; r[2] := 1; r[3] = 1; r[n_] := r[n] = r[n - 1] + r[n - 3]
%t A274452 s = {1}; z = 60; f = Map[r, Range[z]]; Take[f, 20] (*A000930*)
%t A274452 Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}];
%t A274452 Take[s, 2 z] (* A274452 *)
%Y A274452 Cf. A160009, A274280, A274432.
%K A274452 nonn,easy
%O A274452 1,1
%A A274452 _Clark Kimberling_, Jun 23 2016