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 A085562 #11 Feb 07 2021 07:01:48 %S A085562 1,0,0,4,0,6,0,8,9,1,2,1,1,5,1,7,1,9,10,0,1,0,0,4,0,6,0,8,9,0,1,0,0,4, %T A085562 0,6,0,8,9,4,5,4,4,8,4,10,4,12,13,0,1,0,0,4,0,6,0,8,9,6,7,6,6,10,6,12, %U A085562 6,14,15,0,1,0,0,4,0,6,0,8,9,8,9,8,8,12,8,14,8,16,17,9,10,9,9,13,9,15,9 %N A085562 Sum of the nonprime digits of n. %H A085562 Harvey P. Dale, <a href="/A085562/b085562.txt">Table of n, a(n) for n = 1..1000</a> %e A085562 a(123456)=11 because 1+4+6=11. %t A085562 Array[Total[DeleteCases[IntegerDigits[#],_?PrimeQ]]&,100] (* _Harvey P. Dale_, Apr 03 2016 *) %o A085562 (PARI) a(n) = vecsum(select(x->(!isprime(x)), digits(n))); \\ _Michel Marcus_, Feb 06 2021 %Y A085562 Cf. A007953, A018252. %K A085562 base,easy,nonn %O A085562 1,4 %A A085562 _Jason Earls_, Jul 05 2003