|
11, 13, 22, 26, 35, 37, 41, 43, 44, 47, 49, 52, 53, 55, 59, 61, 70, 74, 82, 86, 88, 94, 98, 104, 106, 110, 118, 122, 131, 133, 137, 139, 140, 143, 145, 148, 149, 151, 155, 157, 161, 163, 164, 167, 169, 172, 173, 175, 176, 179, 181, 185, 187, 188, 191, 193, 196, 197, 199, 203, 205, 208, 209, 211, 212, 215, 217, 220
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI)
A030101(n) = if(n<1, 0, subst(Polrev(binary(n)), x, 2));
A057889(n) = if(!n, n, A030101(n/(2^valuation(n, 2))) * (2^valuation(n, 2)));
isA366379(n) = (!!((A057889(n)-n)%3));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|