|
| |
|
|
A110901
|
|
Product{k=1..n} (A013929(k)), the product of the first n positive integers which are each divisible by at least one square >= 4.
|
|
0
| |
|
|
4, 32, 288, 3456, 55296, 995328, 19906560, 477757440, 11943936000, 322486272000, 9029615616000, 288947699712000, 10402117189632000, 416084687585280000, 18307726253752320000, 823847681418854400000, 39544688708105011200000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| Since 4, 8, 9 and 12 are the first 4 non-squarefree positive integers, the fourth
term of the sequence is 4*8*9*12 = 3456.
|
|
|
MATHEMATICA
| Rest[ FoldList[ Times, 1, Select[ Range[2, 48], (Union[Last /@ FactorInteger[ # ]][[ -1]] > 1) == True &]]] (* Robert G. Wilson v *)
|
|
|
PROG
| (PARI) a=1; for(n=1, 48, if(!issquarefree(n), print1(a=a*n, ", ")))
|
|
|
CROSSREFS
| Cf. A013929, A111059.
Sequence in context: A113329 A145710 A199566 * A000766 A197715 A047734
Adjacent sequences: A110898 A110899 A110900 * A110902 A110903 A110904
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Oct 09 2005
|
|
|
EXTENSIONS
| More terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and Robert G. Wilson v (rgwv(at)rgwv.com), Oct 11 2005
|
| |
|
|
