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.

A211822 Nonprime numbers with all divisors with additive digital root of 1.

This page as a plain text file.
%I A211822 #10 May 10 2020 19:34:21
%S A211822 1,361,703,1369,1387,2071,2413,2701,3097,3439,3781,4033,4699,5149,
%T A211822 5329,5833,6031,6697,6859,7201,7363,7543,7957,8227,9253,9271,9937,
%U A211822 10027,10279,10963,11359,11647,11881,11899,11989,13213,13357
%N A211822 Nonprime numbers with all divisors with additive digital root of 1.
%C A211822 Complement of A061237 (prime numbers == 1 (mod 9)) with respect to A211821.
%H A211822 Robert Israel, <a href="/A211822/b211822.txt">Table of n, a(n) for n = 1..10000</a>
%e A211822 Number 6859 with divisors 1, 19, 361, 6859 is in sequence because all divisors have additive digital root of 1.
%p A211822 filter:= n -> not isprime(n) and numtheory:-factorset(n) mod 9 = {1}:
%p A211822 filter(1):= true:
%p A211822 select(filter, [seq(i,i=1..20000,9)]); # _Robert Israel_, May 10 2020
%t A211822 (* First run the program for A211821 *) Select[A211821, Not[PrimeQ[#]] &] (* _Alonso del Arte_, May 02 2012 *)
%Y A211822 Cf. A211821, A024906, A061237, A017173, A211823.
%K A211822 nonn,base
%O A211822 1,2
%A A211822 _Jaroslav Krizek_, Apr 26 2012