OFFSET
1,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(123456)=11 because 1+4+6=11.
MATHEMATICA
Array[Total[DeleteCases[IntegerDigits[#], _?PrimeQ]]&, 100] (* Harvey P. Dale, Apr 03 2016 *)
PROG
(PARI) a(n) = vecsum(select(x->(!isprime(x)), digits(n))); \\ Michel Marcus, Feb 06 2021
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 05 2003
STATUS
approved