A158084 Prime numbers, with a(1)=2, a(n+1) = least prime such that (sum of even digits of a(n)) < (sum of even digits of a(n+1)).

2, 41, 61, 83, 281, 487, 683, 881, 2887, 4889, 6883, 8887, 46889, 48883, 68881, 88883, 468883, 688861, 688889, 888887, 2888887, 4888889, 8868887, 28886881, 28888883, 48888887, 88888867, 88888883, 288888889, 668888887, 688888883, 888888883

Offset

1,1

Links

Table of n, a(n) for n=1..32.

Mathematica

f[n_] := Block[{m = Total@ Select[ IntegerDigits@ n, EvenQ], p = 2}, While[ Total@ Select[ IntegerDigits@ p, EvenQ] <= m, p = NextPrime@ p]; p]; NestList[f, 2, 31] (* Robert G. Wilson v, Jun 23 2014 *)

Crossrefs

Cf. A000040.

Sequence in context: A107190 A215391 A164776 * A243990 A141858 A062650

Adjacent sequences: A158081 A158082 A158083 * A158085 A158086 A158087

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Mar 12 2009, Mar 18 2009

Extensions

Definition corrected by N. J. A. Sloane, Mar 19 2009

a(12) from Alvin Hoover Belt, May 20 2009

Definition clarified by D. S. McNeil, Dec 10 2009

Missing values 683 and 8887 inserted and extended by D. S. McNeil, Dec 10 2009

a(26) - a(32) from Robert G. Wilson v, Jun 23 2014

Status

approved