|
|
A107835
|
|
Slowest increasing sequence where a(n)-(first digit of a(n)) is prime.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|