login
A133979
Home primes whose homeliness is greater than 12.
11
747521, 2333797, 2337397, 2337691, 3373547, 3373907, 3378317, 3379829, 3574657, 3639997, 3733967, 3746507, 3777419, 3784463, 3789293, 3791423, 3795569, 3798923, 4389883, 7548461
OFFSET
1,1
COMMENTS
Number of terms < 10^n: 0, 0, 0, 0, 0, 1, 20, ....
MATHEMATICA
lst = {}; f[n_] := FromDigits@ Flatten[ IntegerDigits@ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger@n, 2]; h[n_] := NestWhileList[f@# &, n, !PrimeQ@# &, 1, 28]; Do[p = h[n][[ -1]]; If[ PrimeQ@p && p < 10^7 && p != n, Print[{n, p}]; AppendTo[lst, p]], {n, 2, 1000}];
d = 13 - 2; lsu = {}; Do[ If[ lst[[n]] == lst[[n + d]], AppendTo[ lsu, lst[[n]] ]], {n, 188004 - d - 1}]; Union@ lsu
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Sep 30 2007
STATUS
approved