A133978
Home primes whose homeliness is 12.
Original entry on oeis.org
378997, 777643, 3127979, 3127997, 3136607, 3173761, 3374729, 3377999, 3759263, 3774161, 3791387, 3943967, 7342469, 7521641, 7540541, 7767709
Offset: 1
Cf.
A037274,
A118756,
A133977,
A133956,
A133957,
A133958,
A133960,
A133962,
A133964,
A133966,
A133968,
A133970,
A133972,
A133974,
A133976.
-
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 = 12 - 2; lsu = {}; Do[ If[ lst[[n]] == lst[[n + d]] && lst[[n - 1]] != lst[[n]] && lst[[n]] != lst[[n + d + 1]], AppendTo[lsu, lst[[n]]]], {n, 188004 - d - 1}]; Take[Union@ lsu, 31]
A133979
Home primes whose homeliness is greater than 12.
Original entry on oeis.org
747521, 2333797, 2337397, 2337691, 3373547, 3373907, 3378317, 3379829, 3574657, 3639997, 3733967, 3746507, 3777419, 3784463, 3789293, 3791423, 3795569, 3798923, 4389883, 7548461
Offset: 1
Cf.
A037274,
A118756,
A133957,
A133959,
A133961,
A133963,
A133965,
A133967,
A133969,
A133971,
A133973,
A133975,
A133977.
-
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
Comments