cp's OEIS Frontend

A028838 Numbers whose sum of digits is a power of 2.

%I A028838 #17 Jul 22 2023 19:45:39
%S A028838 1,2,4,8,10,11,13,17,20,22,26,31,35,40,44,53,62,71,79,80,88,97,100,
%T A028838 101,103,107,110,112,116,121,125,130,134,143,152,161,169,170,178,187,
%U A028838 196,200,202,206,211,215,220,224,233,242,251,259,260,268,277,286,295,301,305,310,314,323,332,341
%N A028838 Numbers whose sum of digits is a power of 2.
%H A028838 Marius A. Burtea, <a href="/A028838/b028838.txt">Table of n, a(n) for n = 1..10535</a>
%t A028838 Select[Range[400],IntegerQ[Log2[Total[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Jul 22 2023 *)
%o A028838 (Magma) [1] cat [k: k in [2..341] | PrimeDivisors(&+Intseq(k)) eq [2] or &+Intseq(k) eq 1]; // _Marius A. Burtea_, Jun 11 2019
%o A028838 (PARI) ispp(n) = (n==1) || (isprimepower(n, &p) && (p==2));
%o A028838 isok(n) = ispp(sumdigits(n)); \\ _Michel Marcus_, Jun 11 2019
%Y A028838 Cf. A007953, A028836, A028846.
%K A028838 nonn,base
%O A028838 1,2
%A A028838 _N. J. A. Sloane_
%E A028838 More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
%E A028838 Checked by Neven Juric (neven.juric(AT)apis-it.hr), Feb 04 2008