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 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