A085598 Primes p with same final decimal digit as k, p = prime(k).

17, 31, 83, 109, 157, 563, 587, 599, 661, 811, 823, 859, 883, 1009, 1093, 1117, 1129, 1289, 1303, 1327, 1381, 1499, 1543, 1567, 1579, 1741, 1753, 1787, 1879, 1901, 1913, 1979, 2027, 2039, 2131, 2221, 2371, 2477, 2609, 2621, 2797, 2843

Offset

1,1

Links

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

Formula

A010879(a(n)) = A010879(A049084(a(n))).

Example

31 is the 11th prime. Since 31 and 11 both have 1 as the least significant digit, 31 is in the sequence.
37 is the 12th prime. But 37 and 12 have different least significant digits, so 37 is not in the sequence.

Mathematica

Select[Prime[Range[1000]], Mod[#, 10] == Mod[PrimePi[#], 10] &] (* Alonso del Arte, Jan 23 2020 *)

Crossrefs

Cf. A010879, A049084, A271043.

Sequence in context: A167496 A370851 A164041 * A163443 A339181 A027722

Adjacent sequences: A085595 A085596 A085597 * A085599 A085600 A085601

Keyword

nonn,base

Author

Reinhard Zumkeller, Jul 06 2003

Status

approved