A107835 Slowest increasing sequence where a(n)-(first digit of a(n)) is prime.

12, 14, 18, 21, 25, 32, 34, 41, 45, 47, 52, 58, 65, 67, 74, 78, 81, 87, 92, 98, 102, 104, 108, 110, 114, 128, 132, 138, 140, 150, 152, 158, 164, 168, 174, 180, 182, 192, 194, 198, 201, 213, 225, 229, 231, 235, 241, 243, 253, 259, 265, 271, 273, 279, 283, 285

Offset

1,1

Links

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

Example

12 - 1 = 11, which is prime; 14 - 1 = 13, which is prime; 18 - 1 = 17, which is prime; 21 - 2 = 19, which is prime; 25 - 2 = 23, which is prime; etc.

Mathematica

Select[ Range[300], PrimeQ[ # - IntegerDigits[ # ][[1]]] &] (* Robert G. Wilson v, Jun 14 2005 *)

Crossrefs

Cf. A107836.

Sequence in context: A135770 A091989 A078417 * A375083 A257966 A342814

Adjacent sequences: A107832 A107833 A107834 * A107836 A107837 A107838

Keyword

base,easy,nonn

Author

Eric Angelini, Jun 11 2005

Extensions

Edited, corrected and extended by Robert G. Wilson v, Jun 14 2005

Status

approved