A176044 n-th-prime without last digit.
0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 7, 8, 8, 9, 10, 10, 10, 10, 11, 12, 13, 13, 13, 14, 15, 15, 16, 16, 17, 17, 18, 19, 19, 19, 19, 21, 22, 22, 22, 23, 23, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 30, 31, 31, 31, 33, 33, 34, 34, 35
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
FromDigits[Most[IntegerDigits[#]]]&/@Prime[Range[90]] (* Harvey P. Dale, Jan 03 2016 *)
Extensions
Corrected by Harvey P. Dale, Jan 03 2016