OFFSET
1,1
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Rémy Sigrist, PARI program for A202262
MATHEMATICA
sub[n_] := Block[{d = IntegerDigits[n]}, Union@ Reap[ Do[Sow@ FromDigits@ Take[d, {i, j}], {j, Length@ d}, {i, j}]][[2, 1]]]; Select[ Range@ 900, Union[{4, 6, 8, 9}, IntegerDigits[#]] == {4, 6, 8, 9} && AllTrue[sub[#], CompositeQ] &] (* Giovanni Resta, Dec 20 2019 *)
PROG
(PARI) See Links section.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Dec 25 2011
EXTENSIONS
Data corrected by Reinhard Zumkeller, May 05 2012
Data corrected by Rémy Sigrist, Dec 19 2019
Incorrect Haskell program deleted by M. F. Hasler, Dec 20 2019
STATUS
approved