|
|
A097365
|
|
Largest prime factor of A096421(n).
|
|
3
|
|
|
2, 2, 3, 3, 11, 7, 5, 7, 5, 43, 1093, 1453, 71, 13, 67, 661, 155191, 103, 2617, 3461, 420929, 1319, 1839833, 129917, 1531, 1316537, 91387, 40841, 30631, 49506559, 1176509, 262069, 14497151, 7489, 1860564731, 1053007, 4557398710937
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
LINKS
|
|
|
EXAMPLE
|
A096421(19) = 79457792 = 2^9 * 155191, so a(19) = 155191.
|
|
PROG
|
(PARI) {m=39; v=vector(m); v[1]=1; for(n=2, m, s=0; for(j=1, n-1, if(gcd(j, n)==1, s=s+v[j]*v[n-j])); v[n]=s); for(i=3, m, fac=factor(v[i]); print1(fac[matsize(fac)[1], 1], ", "))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|