A159614 Emirps with multiplicative persistence value 1.

13, 17, 31, 71, 107, 113, 311, 701, 709, 907, 1009, 1021, 1031, 1033, 1061, 1069, 1091, 1097, 1103, 1109, 1151, 1181, 1201, 1213, 1231, 1301, 1321, 1409, 1511, 1601, 1811, 1901, 3011, 3019, 3023, 3049, 3067, 3083, 3089, 3109, 3121, 3203, 3301, 3407, 3803

Offset: 1

Author

Lekraj Beedassy, Apr 17 2009

Keywords

• nonn
• base

Comments

Intersection of A006567 and A046501.

Crossrefs

Cf. A006567, A046501.

Programs

Maple

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

Extensions

More terms from R. J. Mathar, Apr 29 2009