OFFSET
1,1
COMMENTS
This is the lexicographically earliest sequence of distinct numbers > 0 with this property.
LINKS
Carole Dubois, Table of n, a(n) for n = 1..5000
Carole Dubois, Graph and trend curves for terms, digits sums, terms sums
Rémy Sigrist, C++ program for A330536
EXAMPLE
The successive partial sums of terms are prime:
(2), (2 + 1) = 3, (2 + 1 + 4) = 7; (2 + 1 + 4 + 6) = 13; (2 + 1 + 4 + 6 + 24) = 37; etc.
The successive partial sums of their digits are also prime:
(2), (2 + 1) = 3, (2 + 1 + 4) = 7; (2 + 1 + 4 + 6) = 13; (2 + 1 + 4 + 6 + 2 + 4) = 19; etc.
MATHEMATICA
Nest[Append[#, Block[{k = 1}, While[Nand[FreeQ[#, k], PrimeQ[Total@ # + k], PrimeQ@ Total@ Flatten@ IntegerDigits[Append[#, k]]], k++]; k]] &, {}, 68] (* Michael De Vlieger, Dec 17 2019 *)
PROG
(C++) See Links section.
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Dec 17 2019
STATUS
approved