cp's OEIS Frontend

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.

A249899 Numbers k such that sigma(k) contains the same digits as k in base 10.

This page as a plain text file.
%I A249899 #21 Sep 08 2022 08:46:10
%S A249899 1,69,211,258,270,276,433,609,639,787,877,1021,1201,1231,1255,1291,
%T A249899 1321,1433,1621,1721,1787,1877,2011,2111,2131,2141,2161,2204,2311,
%U A249899 2391,2411,2556,2676,2711,2931,3121,3343,3409,3413,3433,3463,3554,3643,3678,3679,3877
%N A249899 Numbers k such that sigma(k) contains the same digits as k in base 10.
%C A249899 Supersequence of A115920 and A069216.
%H A249899 Harvey P. Dale, <a href="/A249899/b249899.txt">Table of n, a(n) for n = 1..1000</a>
%e A249899 211 is in the sequence because the set of digits of n {1, 2} equals the set of digits of sigma(211) = 212.
%t A249899 Select[Range[4000],Union[IntegerDigits[DivisorSigma[1,#]]] == Union[ IntegerDigits[#]]&] (* _Harvey P. Dale_, Dec 29 2015 *)
%o A249899 (Magma) [n: n in [1..10^5] | Set(Intseq(n)) eq Set(Intseq(SumOfDivisors(n)))];
%o A249899 (PARI) isok(n) = Set(digits(n)) == Set(digits(sigma(n))); \\ _Michel Marcus_, May 27 2018
%Y A249899 Cf. A000203, A069216, A115920.
%K A249899 nonn,base
%O A249899 1,2
%A A249899 _Jaroslav Krizek_, Jan 05 2015