OFFSET
1,2
COMMENTS
This is A179082 (even numbers having an even sum of digits in their decimal representation) where the first term [0] is replaced by [1].
EXAMPLE
Sequence = 1,2,4, 6, 8,20,22,24, 26, 28, 40, 42, 44 ...
Cumulative sum of terms = 1 3 7 13 21 41 63 87 113 141 181 223 267 ...
Cumulative sum of digits = 1 3 7 13 21 23 27 33 41 51 55 61 69 ...
MATHEMATICA
a[1]=1; a[n_]:=a[n]=Block[{k=1}, While[MemberQ[q=Array[a, n-1], k]||EvenQ@Total[s=Join[q, {k}]]||EvenQ@Total[Flatten[IntegerDigits/@s]], k++]; k]; Array[a, 65] (* Giorgos Kalogeropoulos, May 11 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini, Feb 22 2021
STATUS
approved