OFFSET
1,1
EXAMPLE
Calculations:
n: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ...
d: - 2 3 - 5 - 7 - - -- -1 -2 -3 -- -5 -- -7 -- -9 -- ...
MATHEMATICA
Table[If[PrimeQ[n]||PrimeQ[Mod[n, 10]], Mod[n, 10], Nothing], {n, 300}] (* Harvey P. Dale, Oct 03 2016 *)
PROG
(PARI) for(n=1, 211, if(isprime(d=n%10)||isprime(n), print1(d, ", ")))
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Apr 30 2006
EXTENSIONS
Edited, corrected and extended by Klaus Brockhaus, May 02 2006
STATUS
approved