login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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)). 0
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 (list; graph; refs; listen; history; text; internal format)
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 H. 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 13 23:48 EST 2019. Contains 329106 sequences. (Running on oeis4.)