login
A119745
Inverse permutation to sequence A120255.
1
1, 2, 3, 5, 4, 15, 8, 6, 16, 28, 12, 17, 7, 70, 51, 18, 10, 19, 38, 155, 9, 156, 71, 20, 125, 62, 230, 72, 26, 1089, 157, 73, 52, 11, 379, 21, 48, 39, 143, 158, 53, 74, 481, 159, 1090, 75, 33, 22, 975, 3609, 231, 428, 131, 232, 13, 76, 233, 429, 1080, 1091, 29, 160, 77
OFFSET
1,2
PROG
(PARI) {m=75; v=[]; for(n=2, m, v=concat(v, vecsort(eval(setminus(Set(divisors(fibonacci(n))), Set(v)))))); z=100; u=vector(z); for(j=1, #v, if(v[j]<=z, u[v[j]]=j)); i=1; while(u[i]>0, print1(u[i], ", "); i++)} - (Klaus Brockhaus, Aug 17 2006)
CROSSREFS
Cf. A120255.
Sequence in context: A193770 A107476 A094140 * A095753 A139537 A111631
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 16 2006
EXTENSIONS
More terms from Klaus Brockhaus, Aug 17 2006
STATUS
approved