OFFSET
1,3
COMMENTS
The prime digits are 2, 3, 5 and 7. This is the lexicographically earliest sequence of distinct nonnegative terms with this property and also a permutation of the nonnegative integers.
LINKS
EXAMPLE
a(1) + a(2) = 0 + 1 = 1 (no prime digit is present);
a(2) + a(3) = 1 + 3 = 4 (no prime digit is present);
a(3) + a(4) = 3 + 5 = 8 (no prime digit is present); etc.
MATHEMATICA
Block[{a = {0}}, Do[Block[{k = 1}, While[Nand[FreeQ[a, k], NoneTrue[IntegerDigits@ Total[a[[-1]] + k], PrimeQ]], k++]; AppendTo[a, k]], {i, 2, 78}]; a] (* Michael De Vlieger, Nov 12 2020 *)
CROSSREFS
KEYWORD
AUTHOR
Eric Angelini and Carole Dubois, Nov 11 2020
STATUS
approved