|
|
A139084
|
|
a(n) = (smallest prime-power among the largest powers dividing n of each prime dividing n) * (smallest prime-power among the largest powers dividing (n+1) of each prime dividing (n+1)).
|
|
2
|
|
|
2, 6, 12, 20, 10, 14, 56, 72, 18, 22, 33, 39, 26, 6, 48, 272, 34, 38, 76, 12, 6, 46, 69, 75, 50, 54, 108, 116, 58, 62, 992, 96, 6, 10, 20, 148, 74, 6, 15, 205, 82, 86, 172, 20, 10, 94, 141, 147, 98, 6, 12, 212, 106, 10, 35, 21, 6, 118, 177, 183, 122, 14, 448, 320, 10, 134
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The largest powers dividing 44 of each prime dividing 44 are 2^2 and 11^1. The least of these is 2^2 =4. The largest powers dividing 45 of each prime dividing 45 are 3^2 and 5^1. The least of these is 5^1 = 5. So a(44) = 4 * 5 = 20.
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) minpp(n)=local(m, r, pp); if(n==1, 1, m=factor(n); r=m[1, 1]^m[1, 2]; for(i=2, matsize(m)[1], pp=m[i, 1]^m[i, 2]; if(pp<r, r=pp)); r)
vector(80, i, minpp(i)*minpp(i+1)) (End)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|