A159614 - OEIS

%I #5 Feb 06 2019 00:28:53

%S 13,17,31,71,107,113,311,701,709,907,1009,1021,1031,1033,1061,1069,

%T 1091,1097,1103,1109,1151,1181,1201,1213,1231,1301,1321,1409,1511,

%U 1601,1811,1901,3011,3019,3023,3049,3067,3083,3089,3109,3121,3203,3301,3407,3803

%N Emirps with multiplicative persistence value 1.

%C Intersection of A006567 and A046501.

%p read("transforms3") ; A031346 := proc(n) local nm,a,d ; nm := n ; a := 0 ; while nm > 10 do nm := mul(d,d=convert(nm,base,10)) ; a := a+1: od: a ; end: L := BFILETOLIST("b006567.txt") : for i from 1 to 300 do if A031346(op(i,L)) = 1 then printf("%d,", op(i,L)) ; fi; od: # _R. J. Mathar_, Apr 29 2009

%Y Cf. A006567, A046501.

%K nonn,base

%O 1,1

%A _Lekraj Beedassy_, Apr 17 2009

%E More terms from _R. J. Mathar_, Apr 29 2009