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 A068807 #16 Sep 08 2022 08:45:05 %S A068807 2,11,13,17,31,53,71,79,97,101,103,107,211,233,251,277,349,367,431, %T A068807 439,457,503,521,547,619,673,691,701,709,727,853,907,1021,1061,1069, %U A068807 1087,1151,1201,1223,1249,1429,1447,1483,1511,1601,1609,1627,1663,1753,1861,1933,1951,2011,2141 %N A068807 Primes whose sum of digits is a power of 2. %C A068807 Subsequence of primes of A028838. - _Michel Marcus_, Aug 19 2015 %H A068807 Aaron Toponce, <a href="/A068807/b068807.txt">Table of n, a(n) for n = 1..10000</a> %t A068807 Select[ Prime@Range[ 300 ],IntegerQ[ Log[ 2,Plus@@IntegerDigits[ # ] ] ]& ] (* _Ray Chandler_, Dec 03 2009 *) %o A068807 (Magma) [p: p in PrimesUpTo(2200) | PrimeDivisors(s) eq [2] where s is &+Intseq(p)]; // _Bruno Berselli_, Dec 26 2012 %o A068807 (PARI) lista(nn) = forprime (n=1, nn, sd = sumdigits(n); if (2^valuation(sd,2) == sd, print1(n, ", "))); \\ _Michel Marcus_, Aug 19 2015 %Y A068807 Different from A178796. %K A068807 base,easy,nonn %O A068807 1,1 %A A068807 _Amarnath Murthy_, Mar 06 2002 %E A068807 Extended by _Ray Chandler_, Dec 03 2009