OFFSET
1,1
COMMENTS
Numbers that occur in array A371100.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..62122
EXAMPLE
PROG
(PARI)
A371094(n) = { my(m=1+3*n, e=valuation(m, 2)); ((m*(2^e)) + (((4^e)-1)/3)); };
isA372290(n) = if(!(n%2), 0, forstep(k=1, n, 2, if(A371094(k)==n, return(1))); (0));
(PARI)
A371094(n) = { my(m=1+3*n, e=valuation(m, 2)); ((m*(2^e)) + (((4^e)-1)/3)); };
A372290list(up_to_n) = { my(v=vector((1+up_to_n)/2), x, lista=List([])); forstep(k=1, up_to_n, 2, x=A371094(k); if(x <= up_to_n, v[(x+1)/2]++)); for(i=1, (1+up_to_n)/2, if(v[i]>0, listput(lista, i+i-1))); Vec(lista); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 26 2024
STATUS
approved