A133974
Home primes whose homeliness is 10.
Original entry on oeis.org
77773, 312619, 359929, 364627, 374531, 749711, 771941, 1355021, 1389281, 1929311, 1991153, 2336263, 2337547, 2339929, 2373823, 2389853, 2397127, 3137993, 3139547, 3139733, 3139907, 3235471, 3312539, 3313631, 3316661
Offset: 1
Cf.
A037274,
A118756,
A133973,
A133956,
A133957,
A133958,
A133960,
A133962,
A133964,
A133966,
A133968,
A133970,
A133972,
A133976,
A133978.
-
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 = 10 - 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, 35]
A133976
Home primes whose homeliness is 11.
Original entry on oeis.org
379811, 1173463, 2314723, 2315641, 2337607, 3182561, 3371237, 3372371, 3376991, 3379997, 3383777, 3411901, 3539857, 3710627, 3779873, 3791453, 3792179, 3795581, 3798737, 3831523, 3898513, 7338269, 7482569, 7539743
Offset: 1
Cf.
A037274,
A118756,
A133975,
A133956,
A133957,
A133958,
A133960,
A133962,
A133964,
A133966,
A133968,
A133970,
A133972,
A133974,
A133978.
-
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 = 11 - 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]
Comments