OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n=1..147 (complete sequence)
MATHEMATICA
max = 10^10; truncate[p_] := If[q = Quotient[p, 10]; q == 1 || PrimeQ[q], q, p]; ok[p_] := FixedPoint[truncate, p] < 10; p = 1; cnt = 2; A012883 = Join[{1}, Reap[While[(p = NextPrime[p]) < max, If[ok[p], Print[cnt++, " ", p]; Sow[p]]]][[2, 1]]] (* Jean-François Alcover, Nov 23 2015 *)
PROG
(PARI) for(n=1, 1e4, k=n; while(isprime(n) || n==1, c=n; n=(c-lift(Mod(c, 10)))/10); if(n==0, print1(k, ", ")); n=k) \\ Altug Alkan, Nov 23 2015
CROSSREFS
KEYWORD
nonn,fini,full,nice,base
AUTHOR
Larry Calmer (larry(AT)wri.com), Simon Plouffe
EXTENSIONS
Last term is A094335(10) = 1979339339 (confirmed by David W. Wilson ).
STATUS
approved