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 A383836 #22 May 28 2025 18:09:56
%S A383836 1,3,5,6,9,10,15,21,22,28,39,66,75,81,89,105,108,111,141,165,166,190,
%T A383836 196,317,340,357,459,462,483,525,564,568,573,701,735,737,792,869,1185,
%U A383836 1311,1480,1647,1794,1881,2145,2405,2508,2766,3081,3201,3225,3243,4260,4713,5369,5795,5985
%N A383836 Integers k such that d*2^k + k/d is prime for some divisor d of k.
%e A383836 6 is a term because 2*2^6 + 6/2 = 131 is prime for divisor d = 2 of k = 6.
%t A383836 Select[Range[4300],Sum[Boole[PrimeQ[d*2^#+#/d]],{d,Divisors[#]}]>0 &] (* _Stefano Spezia_, May 16 2025 *)
%o A383836 (Magma) [k: k in [1..1000] | not #[d: d in Divisors(k) | IsPrime(d*2^k+(k div d))] eq 0];
%o A383836 (PARI) is(n, f=factor(n))=fordiv(n>>valuation(n,2),d, if(isprime(n/d*2^n+d), return(1))); 0 \\ _Charles R Greathouse IV_, May 17 2025
%Y A383836 Supersequence of A057663.
%Y A383836 Cf. A161904, A383473.
%K A383836 nonn
%O A383836 1,2
%A A383836 _Juri-Stepan Gerasimov_, May 11 2025
%E A383836 a(41) corrected by _Sean A. Irvine_, May 21 2025