|
%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
|
