|
| |
|
|
A097365
|
|
Largest prime factor of A096421(n).
|
|
2
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 3,1
|
|
|
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
| Cf. A096421, A097366.
Sequence in context: A195952 A095060 A094117 * A156906 A180000 A053094
Adjacent sequences: A097362 A097363 A097364 * A097366 A097367 A097368
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Aug 09 2004
|
| |
|
|
