%I #9 Jan 24 2020 03:22:23
%S 17,31,83,109,157,563,587,599,661,811,823,859,883,1009,1093,1117,1129,
%T 1289,1303,1327,1381,1499,1543,1567,1579,1741,1753,1787,1879,1901,
%U 1913,1979,2027,2039,2131,2221,2371,2477,2609,2621,2797,2843
%N Primes p with same final decimal digit as k, p = prime(k).
%F A010879(a(n)) = A010879(A049084(a(n))).
%e 31 is the 11th prime. Since 31 and 11 both have 1 as the least significant digit, 31 is in the sequence.
%e 37 is the 12th prime. But 37 and 12 have different least significant digits, so 37 is not in the sequence.
%t Select[Prime[Range[1000]], Mod[#, 10] == Mod[PrimePi[#], 10] &] (* _Alonso del Arte_, Jan 23 2020 *)
%Y Cf. A010879, A049084, A271043.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Jul 06 2003
|