|
|
A324193
|
|
a(1) = 0; for n > 1, a(n) = Product_{d|n, d>1, d<n} prime(1+A297167(d)).
|
|
3
|
|
|
0, 1, 1, 2, 1, 6, 1, 6, 3, 10, 1, 54, 1, 14, 15, 30, 1, 90, 1, 150, 21, 22, 1, 1350, 5, 26, 15, 294, 1, 2250, 1, 210, 33, 34, 35, 6750, 1, 38, 39, 5250, 1, 6174, 1, 726, 375, 46, 1, 66150, 7, 350, 51, 1014, 1, 3150, 55, 16170, 57, 58, 1, 1181250, 1, 62, 735, 2310, 65, 23958, 1, 1734, 69, 17150, 1, 1653750, 1, 74, 525, 2166, 77, 39546, 1, 404250, 105
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
An auxiliary sequence for defining A300827, which is the restricted growth sequence transform of this sequence. A324202 is a similar sequence, but is not limited to the proper divisors of n, and in contrast to this, also finds the least prime signature representative (A046523) of the product formed.
|
|
LINKS
|
|
|
FORMULA
|
a(1) = 0; for n > 1, a(n) = Product_{d|n, d>1, d<n} prime(1+A297167(d)).
For all n > 0:
|
|
PROG
|
(PARI)
A061395(n) = if(1==n, 0, primepi(vecmax(factor(n)[, 1])));
A324193(n) = { my(m=1); if(n<=2, n-1, fordiv(n, d, if((d>1)&(d<n), m *= prime(1+A297167(d)))); (m)); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|