|
|
|
|
#12 by Susanna Cuyler at Tue Jun 12 10:17:05 EDT 2018
|
|
|
|
#11 by Antti Karttunen at Mon Jun 11 17:55:22 EDT 2018
|
|
|
|
#10 by Antti Karttunen at Mon Jun 11 17:54:55 EDT 2018
|
|
|
|
#9 by Antti Karttunen at Mon Jun 11 17:29:34 EDT 2018
|
| PROG
|
\\ Needs also code from A286622:
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From A046523
A278222(n) = A046523(A005940(1+n));
v286622 = rgs_transform(vector(1+up_to, n, A278222(n-1)));
A286622(n) = v286622[1+n];
|
|
|
|
#8 by Antti Karttunen at Mon Jun 11 17:15:34 EDT 2018
|
| NAME
|
Restricted growth sequence transform of A305792,, a filter sequence constructed from binary expansions of the proper divisors of n.
|
| LINKS
|
<a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
|
|
|
|
#7 by Antti Karttunen at Mon Jun 11 17:10:24 EDT 2018
|
|
|
|
#6 by Antti Karttunen at Mon Jun 11 14:47:19 EDT 2018
|
|
|
|
#5 by Antti Karttunen at Mon Jun 11 13:35:40 EDT 2018
|
| LINKS
|
Antti Karttunen, <a href="/A305793/b305793.txt">Table of n, a(n) for n = 1..65537</a>
|
|
|
|
#4 by Antti Karttunen at Mon Jun 11 13:33:36 EDT 2018
|
|
|
|
#3 by Antti Karttunen at Mon Jun 11 13:00:54 EDT 2018
|
|
|
|