login
This site is supported by donations to The OEIS Foundation.

 

Logo

The October issue of the Notices of the Amer. Math. Soc. has an article about the OEIS.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A074480 Multiplicative closure of twin prime pair products (A037074). 5
1, 15, 35, 143, 225, 323, 525, 899, 1225, 1763, 2145, 3375, 3599, 4845, 5005, 5183, 7875, 10403, 11305, 11663, 13485, 18375, 19043, 20449, 22499, 26445, 31465, 32175, 32399, 36863, 39203, 42875, 46189, 50625, 51983, 53985, 57599, 61705 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

A072965(a(n)) = 1.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

EXAMPLE

a(99)=1040399=1019*1021; a(101)=1090125=(3*5)*(3*5)*(3*5)*(17*19); a(103)=1101275=(5*7)*(5*7)*(29*31); a(105)=1126125= (3*5)*(3*5)*(5*7)*(11*13).

MATHEMATICA

max = 70000; t1 = Select[Prime /@ Range[PrimePi[Sqrt[max]]], PrimeQ[# + 2] &]; pairs = Join[{1}, t1*(t1 + 2)]; f[pairs_] := Outer[Times, pairs, pairs] // Flatten // Union // Select[#, # <= max &] &; FixedPoint[f, pairs] (* Jean-François Alcover, Dec 11 2012 *)

PROG

(Haskell)

import Data.Set (Set, singleton, delete, findMin, deleteFindMin, insert)

a074480 n = a074480_list !! (n-1)

a074480_list = multClosure a037074_list where

  multClosure []     = [1]

  multClosure (b:bs) = 1:h [b] (singleton b) bs where

   h cs s []    = m:h (m:cs) (foldl (flip insert) s' $ map (*m) cs) []

    where (m, s') = deleteFindMin s

   h cs s xs'@(x:xs)

    | m < x     = m:h (m:cs) (foldl (flip insert) s' $ map (*m) cs) xs'

    | otherwise = x:h (x:cs) (foldl (flip insert) s  $ map (*x) (x:cs)) xs

    where (m, s') = deleteFindMin s

-- Reinhard Zumkeller, Aug 14 2011

CROSSREFS

Cf. A037074, A001359, A006512, A062505.

Cf. A071700 (subsequence).

Sequence in context: A070161 A142591 A254031 * A194580 A210503 A037074

Adjacent sequences:  A074477 A074478 A074479 * A074481 A074482 A074483

KEYWORD

nonn,nice

AUTHOR

Reinhard Zumkeller, Aug 23 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 25 01:17 EDT 2018. Contains 315360 sequences. (Running on oeis4.)