This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A372291 #9 Apr 26 2024 10:59:26 %S A372291 45,69,93,141,165,189,237,261,285,333,357,381,429,453,477,525,549,573, %T A372291 621,645,669,717,725,741,765,813,837,861,909,933,957,1005,1029,1053, %U A372291 1101,1109,1125,1149,1197,1221,1245,1293,1317,1341,1389,1413,1437,1485,1493,1509,1533,1581,1605,1629,1677,1701,1725,1773,1797 %N A372291 Numbers that occur exactly once in the odd bisection of A371094. %C A372291 Numbers that occur exactly once in array A371100. %H A372291 Antti Karttunen, <a href="/A372291/b372291.txt">Table of n, a(n) for n = 1..25365</a> %e A372291 45 is present because A371094(k) = 45 for no other odd number than k=7. %o A372291 (PARI) %o A372291 A371094(n) = { my(m=1+3*n, e=valuation(m,2)); ((m*(2^e)) + (((4^e)-1)/3)); }; %o A372291 isA372291(n) = if(!(n%2),0,my(c=0); forstep(k=1,n,2,if(A371094(k)==n,c++;if(c>1,return(0)))); (c)); %Y A372291 Cf. A371094, A371100. %Y A372291 Setwise difference A372290 \ A372292. %K A372291 nonn %O A372291 1,1 %A A372291 _Antti Karttunen_, Apr 26 2024